ficaria assim...: for I := 0 to MemParcelas.FieldCount - 1 do begin if (MemParcelas.Fields[I].DataType = ftDate) and (MemParcelas.Fields[I].AsDateTime <> 0) then Range['A1', 'A2'].Value := MemParcelas.Fields[I].AsDateTime; // vc deve ter uma rotina para retornar a célula certa, pois os dados serão sobrescritos end;