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;