Realtime Input? Thread?

[sk.Silvia]

but how?

Delphi-Quellcode:

type TFiber=class(TTHread)
  procedure execute; override;
  end;

  procedure TFiber.execute;
  var i:integer;
      begin
      repeat
        ShowMessage(IntToStr(i));
        Suspend;
        i:=i+1;
      until i=3;
      end;

var Fiber:TFiber;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  begin
  Fiber:=TFiber.Create(false);
  Fiber.execute;
  end;

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

but thats not correct