problema

[sanxpue]

Tus campos son Id_Cuenta, Estado, Importe,Numero el cual

ID_Cuenta = 16
Estado = 1
Importe = 16 ( a la derecha)
Numero = 7


Usemos una funcion ya un poco generalizada

Function Palabra(Cad : String;LarCad : String;Const Lado : Byte = 1) : String;
Begin
  While Length(Cad) < LarCad Do
     Case Lado Of
       1 : Cad := ' '+Cad;
       2 : Cad := Cad+' ';
     End;
  Result := Cad;
End;

Weno con esa funcion ahora la aplicamos cuando bajas tus datos

Procedure.....
.
.
Begin
  Memo1.Lines.Clear;
  ..abres tu table
  While Not Table1.EoF Do
  Begin
     Memo1.Lines.Add(Table1.FieldByName('ID_Cuenta').AsString+
                             Table1.FieldByName('Estado').AsString+
                             Palabra(Table1.FieldByName('Importe').AsString,16)+
                             Table1.FieldByName('Numero').AsString);
     Table1.Next;
  End;
  Memo1.Lines.SaveToFile('MisDatos.Txt');
End;

eso es todo no hay mas (weno si.. si vas adorando la funcion puedes decirle que te corte la linea y muchas cositas mas, ojo en el uso de Const, esa es otra historia..