Изза потока зависает программа

[RNT]

Не пойму , почему изза потока (thread) зависает программа. Потоки ведь нужны как раз для того , чтобы программа не зависала. Я делаю чат , в отдельный поток вынес проверку соединения. Когда запускаю поток , программа виснет. Помогите пожалуйста правильно написать поток.
Вот код двух процедур потока:

procedure Check;
var
	s: TStringStream;
begin 
	while 2>1 do
	begin
		try
			s:=TStringStream.Create; //Инициализация потока s
			s.WriteString('CodeString');  //Запись сообщения в поток s
			s.Position:=0; //Установка позиция на начало потока s
			Form1.tcpc1.IOHandler.Write(s, s.Size, true); //Передача сообщения
			s.Clear;
			Form1.tcpc1.IOHandler.ReadStream(s);
			s.Position:=0;
			if s.ReadString(s.Size)='CodeStringAccepted' then
				Form1.LabelIndicator.Caption:='Связь есть';
			s.Free; //Уничтожение потока s
		except
			Form1.LabelIndicator.Caption:='Связи нет';
			try
				Form1.tcpc1.Connect;
			except
			end;
		end;
		Sleep(5000);
	end;
end;

procedure TCheckConnection.Execute;
begin 
	Synchronize(Check);
end;

Во вложении проект

[Квэнди]

Обязательно прочтите теорию работы с потоками. У вас никакой код в отдельном потоке не выполняется.

[RNT]

Про потоки я читал . Этот код выполняется в отдельном потоке , и изза него не должна зависать программа. В чем ошибка ?

[Квэнди]

Нет, не выполняется. Плохо читали. Для чего предназначена процедура Synchronize ?

[RNT]

процедура Synchronize предназначена для обращения к VCL . Получается надо каждое обращение к компоненту indy писать в отдельной процедуре ?

[Квэнди]

Все, что выполняется в Synchronize, выполняется в VCK потоке. делайте выводы. Надо просто корректно спроектировать многопоточность и все )

[RNT]

Можете привести пример ?

[Квэнди]

Synchronize предназначен именно для синхронизации с VCL потоком, т.е. в не должны выполняться потоково не безопасные методы, использоваться общие ресурсы и т.д. В самом же потоке вы должны оперировать объектами только самого потока. Т.е. если вы из потока работаете с каким- то компонентом, то вы его должны создать в потоке и работать с ним. Для простоты использования, можно пользоваться родным для Indyклассом TidThread , который в последних версиях выполнен в виде отдельного компонента на вкладке Indy/Misc , для синхронизации внутри него лучше использовать метод TidSync.Synchronize из модуля Idsync

[RNT]

если вы из потока работаете с каким- то компонентом, то вы его должны создать в потоке и работать с ним.

А как можно в потоке разместить компонент ? Компоненты ведь размещаются на форме

[Квэнди]

Тогда вам рано читать про потоки. Любой компонент- объект, делайте выводы.