Deberías haber podido tu solo... pero en fin.
Código Delphi
[-]
Function Palabra(const Cad : String; LarCad : Integer;Const izq :Boolean = True ) : String;
var i:integer;
begin
Result := cad;
for i:=length(Result) to LarCard do
if izq then
Result :=' '+Result;
else
Result :=Result +' ';
end;
end;
Problema: si cad es de longitud mayor a LarCad, la cadena no se corta, sale entera... se debería comprobar y si es mayor, poner 3 puntos suspensivos y cortar la cadena resultante... por ejemplo
Si ya has leido la Guia de estilo, habrás visto que no se debe repetir el mismo hilo varias veces, porque así te mareas tu al verlos y nosotros al responder, si no has leido la guia, deberías leerla
Saludos