procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Clear;
 dxMemData1.DisableControls;
 dxMemData1.Close;
 dxMemData1.Open;
 dxMemData1.EnableControls;
end;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 Memo1.Lines.Add('xexe '+Memo1.Lines.Count.ToString);
end;