Многопоточность Delphi

Question

Прошу привести мне пример самого просто многопоточного приложения которое допустим выводит числа от 1 до 100 в мемо через несколько потоков (числа не должны повторятся) я знаю что это желательно делать через CriticalSection но не умею прошу пояснить и привести пример

Александр Киселев · Accepted Answer

многопоточность в delphi делается через TThread

Татьяна Пастушенко · Answer

Примерно так: 
 
type 
 
TMyTherad=class(TThread); 
protected 
procedure Execute; override; 
public 
From, Till:integer; 
Memo:TMemo; 
end; 
 
procedure TMyTherad.Execute; 
var j:integer; 
begin 
for j:=From to Till do Memo.Lines.Add(IntToStr(j)); 
end; 
 
TYrForm.YrButtonClick(Dender:TObject); 
var j:integer; 
for j:=0 to 9 do 
with TMyThread.Create(true) do 
From:=j*10+1; 
Till:=From+9; 
Memo:=YrMemo; 
Resume; 
end; 
end;