Realtime Input? Thread?

[sk.Silvia]

thanks for your help, threat are looking good, but what am i making wrong, why does it do - nothing - ?

Delphi-Quellcode:

var fiber:TThread;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  begin
  fiber:=TTHread.Create(false);
  //fiber.Synchronize(???);
  i:=0;
  repeat
    Memo1.Lines.Append(IntToStr(i));
    fiber.Suspend;
    i:=i+1;
  until i=3;
  fiber.Terminate;
  end;

procedure TForm1.Button2Click(Sender: TObject);
  begin
  fiber.Resume;
  end;