Как проверить произошла ли запись в таблицу Mysql по средствам Delphi

[D.O.G]

Есть вот такой вот обработчик событий.

procedure TForm2.Button1Click(Sender: TObject);
var
  number_cab, model_print, neispravno, model_cartr, date_uchet: string;
begin
 Form2.SQLDataSet5.Close;
 Form2.SQLDataSet5.Open;
 Form2.ClientDataSet5.Close;
 Form2.ClientDataSet5.Open;//ребутит clientdataset и sqldatset
 number_cab:=DBLookupComboboxEh1.KeyValue;
 model_print:=DBLookupComboboxEh2.KeyValue;
 neispravno:=DBLookupComboboxEh3.KeyValue;
 model_cartr:=DBLookupComboboxEh4.KeyValue;
 date_uchet:=DBDateTimeEditEh2.Text;//обозначаем переменные
 ClientDataSet5.Edit;//режим редактирования
 ClientDataSet5.Insert;//добавление строки
 ClientDataset5.FieldValues['number_cab']:=number_cab;//добавление информации в столбец number_cab из number_cab
 ClientDataset5.FieldValues['model_print']:=model_print;//добавление информации в столбец model_print из переменной model_print
 ClientDataset5.FieldValues['model_cartr']:=model_cartr;//добавление информации в столбец model_cartr из переменной model_cartr
 ClientDataset5.FieldValues['neisprav']:=neispravno;//добавление информации в столбец neisprav из переменной neispravno
 ClientDataset5.FieldValues['date_1']:=date_uchet;//добавление информации в столбец date_1 из переменной date_uchet
 ClientDataSet5.Post;
 ClientDataset5.ApplyUpdates(0);
 ClientDataSet5.Refresh;

как проверить произошла ли запись в таблицу и вывести через showmessage сообщение?

[pobedin]

with adoquery do
begin
close;
clear;
text:='select* from table where number_cab= :par1'; 
parambyname('par').asstring:=number_cab;
open;
end;
if adoquery1.recordcount<>0 then
showmessage('');

[D.O.G]

Подскажите как изменить название окна которое выдает showmessage?

[Sparkman]

Сообщение от D.O.G

Подскажите как изменить название окна которое выдает showmessage?

with Application do
  begin
    NormalizeTopMosts;
    MessageBox('This should be on top.', 'Look', MB_OK);
    RestoreTopMosts;
  end;

[D.O.G]

По другому решил проблему)) за программный пример спасибо))

[Sparkman]

Сообщение от D.O.G

По другому решил проблему)) за программный пример спасибо))

пожалуйста