Sinus scroller

[Klaus01]

Sollte das nicht ungefähr so gehen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x: Integer;

begin
  for x := 0 to 720 do
    begin
      Canvas.TextOut(x,200+trunc(100*sin(x/50)),'+');
      application.ProcessMessages;
      sleep(5);
    end;
end;

Grüße
Klaus