problema

[jovehe]

Function Palabra(Cad : String;LarCad : Integer;Const Lado : Byte = 1) : String;
begin
While Length(Cad) < LarCad Do
Case Lado of
1: Cad:=''+Cad;
2: Cad:=Cad+'';
end;
Result:=Cad;
end;

//este es el boton que manda el texto

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Memo1.Lines.Clear;
while not Table2.Eof do
begin
Memo1.Lines.Add(Table2.FieldByName('ID_Cuenta').AsString+
Table2.FieldByName('EstadoMovto').AsString+
Palabra(Table2.FieldByName('ImporteMonedaCuenta').AsString,16)+
Table2.FieldByName('NumeroCheque').AsString);
Table2.Next;
end;
Memo1.Lines.SaveToFile('C:\TEXTO.TXT');

end;

tengo que aclarar que que esta tabla la lleno a partir de otra tabla es decir la lleno a partir de otra tabla no habra forma de que al moemto de copiar a la tabla de donde voy a sacar el texto se copie el campo con los espacios ? no se y es que de internet descargue un componente que me pasa la bd a un texto pero el preblema es que el campo de importe no me aparece con los campos en blanco y en las propiedades del componente no se ahora si sees mejor con el metodo que me estas pasando entonces lo cambio porque con este metodo que me estas pasando estoy haciendo una aplicacion de prueba .

muchas gracias y disculpa si te quito el tiempo