Вход в систему

Послать окну сообщение и словить его в обработчике OnDataChange

Пример:

const
 UM_NOTMY = 44444;
...
...
...

type
  TForm1 = class(TForm)
...
...

    procedure DataSource1DataChange(Sender: TObject; Field: TField);
...


  protected
    procedure OnMessage(var Message: TMessage); message UM_NOTMY;
  end;
...

implementation
{$R *.dfm}

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  PostMessage(Handle, UM_NOTMY,0,0)
end;

procedure TForm1.OnMessage(var Message: TMessage);
begin
  if ADOQuery1.State in [dsEdit, dsInsert] then
    ADOQuery1.Post
end;