[__cadetill]

Pues algo como

Código Delphi [-]
while not SQLQuery.Eof do
begin
  dxMemData.Append;
  dxMemData.FieldByName('campo').AsXXX := SQLQuery.FieldByName('campo').AsXXXX;
  dxMemData.FieldByName('campo').AsXXX := SQLQuery.FieldByName('campo').AsXXXX;
....
  dxMemData.FieldByName('campo').AsXXX := SQLQuery.FieldByName('campo').AsXXXX;
  dxMemData.Post;
  SQLQuery.Next;
end;

A ver si te sirve