Completar Cadenas a un largo Fijo

[Neeruu]

Hola como estan?
Tengo algo que no me sale

Capas sea algo simple pero me esta sacando canas

Cargo en un Memo los nombres y apellido desde un DataSet

por ejemplo Asi

Código Delphi [-]
DataSet.First;
While not DataSet.Eof do
    begin
        Memo.Lines.Add(DataSet.FieldByName('Campo1').AsString + ' - ' +         DataSet.FieldByName('Campo1').AsString);
        DataSet.Next;
    end;

pero lo que me queda en el memo es algo asi

PEPE ' - ' LUI
MANUEL ' - ' FERNANDEZ
ETC

lo que quise hacer es asignarle una cantidad de espacios detras del primer nombre dependiendo del length de la Campo1

Ejemplo

Código Delphi [-]
 
Function CompletaEspacio(MyCadena:String; iCant:Integer):String;
var i:Integer;
begin
  Result := MyCadena;
    for i := (iCant - Length(MyCadena)) to iCant do
        Result := Result + ' ';

end;

Donde iCant es una cantidad fija que mandaba como parametro como limite de largo del Campo1

pero lo que obtengo en el memo es algo asi

Código Delphi [-]
 
PEPE         ' - ' LUI
MANUEL ' - ' FERNANDEZ

y lo que necesito es que me quede asi

Código Delphi [-]
  
PEPE     ' - ' LUI
MANUEL ' - ' FERNANDEZ

Saluda Atte Neeruu