Armar cadena con datos de un query

[[oscarac]]

buenos dias
el titulo parece facil, pero el query tiene diferentes tipos de datos
entonces me gustaria tener ideas de como hacr lo que necesito (armar una cadena con los campos de un query)

estaba haciendo mas o menos esto

Código Delphi [-]
 
    qryTemporal.Close;
    qryTemporal.SQL.Clear;
    qryTemporal.sql.Add(StrSql);
    qryTemporal.Open;
    qryTemporal.First; // Por siacaso
    AssignFile( F, ExtractFilePath( Application.ExeName ) + 'prueba.txt' );
    while not qryTemporal.Eof do
    begin
    for i:= 0 to qryTemporal.FieldCount do
      begin
         if tipodedato de qryTemporal.Fields[i].Value = Fecha Then
             _Cadena := _Cadena + DatetoStr(qryTemporal.Fields[i].Value + '¦')
         if tipodedato de qryTemporal.Fields[i].Value = Float Then
             _Cadena := _Cadena + FloatToStr(qryTemporal.Fields[i].Value + '¦')
         if tipodedato de qryTemporal.Fields[i].Value = Integer Then
              _Cadena := _Cadena + inttostr(qryTemporal.Fields[i].Value + '¦')
         if tipodedato de qryTemporal.Fields[i].Value = string Then
            _Cadena := _Cadena + qryTemporal.Fields[i].Value + '¦';
      end;
    end;

alguna idea?