Memo1.Lines.Clear;
qClientes.First;
while not qClientes.EOF do
begin
Memo1.Lines.Add(Format('%15s, %50s, %50s, %12.2d', [
qClientesCODIGO.AsString,
qClientesAPELLIDOS.AsString,
qClientesNOMBRES.AsString,
qClientesSALDO.AsFloat];
qClientes.Next;
end;
Memo1.Lines.SaveToFile('c:\cliente.txt');