[Yurk@]

а так?

Код:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  MyQuery1.Close;
  MyQuery1.SQL.Text := 'SELECT COUNT(*) FROM dynamit_test WHERE status=3';
  MyQuery1.Open;
  if MyQuery1.Fields[0].AsInteger > 0 then
  begin
    Timer3.Enabled:=False;
    MyQuery1.Close;
    MyQuery1.SQL.Text := 'SELECT * FROM dynamit_test WHERE status=3';
    MyQuery1.Open;
    MessageBox(Handle, 'вам пришло новое сообщение','Оповещение',MB_OK);
    try
      MyQuery1.Edit;
      MyQuery1.FieldByName('status').AsString := '2';
      MyQuery1.Post;
    finally
    end;
    Timer3.Enabled:=True;
  end;
end;