Usa un StringList. Comienzas insertando una línea para el nombre del banco. Luego recorres el query formando la línea por cada registro tomando los datos de los campos individuales y al final guardas el archivo:
Código Delphi
[-]
var
List: TStringList;
Line: String;
begin
List := TStringList.Create;
try
List.Add('El banco de la ilusión');
Query.First;
while not Query.Eof do
begin
Line := Query.FieldByName('nombre').AsString;
Line := Line + StringOfChar(' ', 10);
Line := Line + Query.FieldByName('sueldo').AsString;
List.Add(Line);
Query.Next;
end;
List.SaveToFile('sueldos.txt');
finally
List.Free;
end;
end;
// Saludos