Delphi - Texto que aparece desde la izquierda

Vi un mensaje hace unos días y como no lo encuentro ofrezco una solución sencilla y corta. En el mensaje se preguntaba como conseguir que un texto apareciera desde la izquierda secuencialmente en un TEdit o similar.Ahí va:

const
Texto = 'HOLA ¡¡¡ PÁGATE UN CAFE';

procedure TFormPrincipal.Timer1Timer(Sender: TObject);
begin
Label1.caption := copy(Texto, 1, Timer1.Tag +1);
Timer1.Tag := Timer1.Tag + 1;
if Timer1.Tag = Length(Texto)+1 then
begin
Sleep(3000);
Label1.Caption:='';
Timer1.Tag:=0;
end;
//Timer1.Enabled := False; //Continua sin parar
Application.ProcessMessages;
end;