Realtime Input? Thread?

[C.Schoch]

maybe try :

Delphi-Quellcode:

   procedure TFiber.execute;
  var i:integer;
      begin
      i:=0;
      repeat
        Memo.Lines.Append(IntToStr(i));
        wait(1) // <--- Here i changed
        Suspend; //<------------HERE
        i:=i+1;
      until i=3;
      end;

i have no Delphi here to test this now