Hola martita.
Código Delphi
[-]
function AjustarCadena(ATable: TDataSet): string;
var
i: integer;
begin
Result:= '';
with ATable do
for i:= 0 to FieldCount -1 do
Result:= Result + Fields[i].AsString +
StringOfChar(' ',Fields[i].DisplayWidth+1-Length(Fields[i].AsString));
end;
Llamada de ejemplo:
Código Delphi
[-]
ShowMessage(AjustarCadena(Table));
Saludos.