but by me the Suspend; dont stop the threat, it do nothing(likle i could exclude Suspend from the code and it would be the same)
but i need to suspend the threat in the repeat, so i cannot suspend it in Form1
Delphi-Quellcode:
procedure TFiber.execute;
var i:integer;
begin
i:=0;
repeat
Memo.Lines.Append(IntToStr(i));
Suspend; //<------------HERE
i:=i+1;
until i=3;
end;