[Alegun]

Зря жгли, из пепла дольше возрождать

...Я пытался так: 2 строки Label, первая стоит у края, вторая бегает туда-сюда...

Код:

...
var
i: integer;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
 i:= 1;
 Label1.Caption:= '';
 Label2.Caption:= Edit1.Text[1];
 Label2.Left:= ClientWidth - Label2.Width;
 Timer1.Interval:= 10;
 Timer1.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label2.Left:= Label2.Left - 10;
 Label2.Visible:= Label2.Left < ClientWidth - Label2.Width;
 if Label2.Left <= Label1.Width then
  begin
   Label1.Caption:= Label1.Caption + Label2.Caption;
   inc(i);
   if Edit1.Text[i] <> ' ' then
    Label2.Caption:= Edit1.Text[i] else
     begin
      inc(i);
      Label2.Caption:= ' ' + Edit1.Text[i];
     end;
   Label2.Left:= ClientWidth - Label2.Width;
  end;
 if i > Length(Edit1.Text) then Timer1.Enabled:= false;
end;