Tips (1541)

Tip Bewertung (3):

var
  a: string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := 'Look at here !...';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var 
  i: Integer;
begin
  Application.Title := a;
  Form1.Caption     := a;
  for i := 1 to (Length(a) - 1) do
    a[i] := Application.Title[i + 1];
  a[Length(a)] := Application.Title[1];
end;