Componente TLabel

[[Caral]]

Hola
Gracias.
Ahora lo que falta es hacer que el label empiece a la derecha, como implementamos esto:

function Alinea(S: String; N: Integer): String;
begin
while Length(S) < N do
Insert(' ',S,Length(S)+1);
Result:=S
end;

en trucomania, ejemplo de llamada:

Label1.Caption:=Alinea('hola',10);

Esto con el fin de que empiece desde la derecha como un anuncio, bueno algo asi.
Saludos