Поток в delphi

[qwerty74]

Здравствуйте, как вот такой цикл засунуть в поток

var i: Integer;
begin
i:=1;
repeat
      Memo1.Lines.Add(IntToStr(i));
      i:= i + 1;
      until i =100000 ;
end;

[veniside]

никак. Точнее, это не будет иметь смысла, т.к. работать с VCL из других потоков крайне не рекомендуется.

Можно, конечно, этот цикл засунуть в поток, и посылать из него в Memo сообщения, но особого смысла в этом я не вижу. Проще использовать что-то вроде virtual list view.

[Swarog]

работать с VCL из других потоков крайне не рекомендуется.

а если и работать то только с синхронизацией