[lmikle]

У тебя имена полей совпадают с тем, что ты написал?
Если да, то так и выводи:

Код:

var
  L : TStringList;
  S : Buffer;
  I : Integer;
begin
  ...
  L := TStringList.Create;
  Query.Active := True;
  While Not Query.EOF Do
    Begin
      S := '';
      For I := 0 To Query.Fields.Count-1 Do
        S := S + Query.Fields[i].FieldName + '=' + Query.Fields[i].AsString + ';';
      L.Add(S);
      Query.Next;
    End;
  Query.Active := False;
  L.SaveToFile('file-name-here.txt');
  L.Free;
  ...