dbgrid 删除有关问题

dbgrid 删除问题？
procedure TForm1.Button6Click(Sender: TObject);
begin
if Application.MessageBox( '是否要删除该记录 ', '提示 ',MB_OKCANCEL) = IDOK then
 begin
ADOQuery2.delete;
showMessage('删除成功！');
end
else
begin
end
end;

在dbgrig 有个编号字段，请问，怎么在Message 显示 是否要删除00001该记录？谢谢

[解决办法]

Delphi(Pascal) code

if Application.MessageBox( '是否要删除'+ADOQuery2.FieldByName('编号').AsString+'记录 ', '提示 ',MB_OKCANCEL) = IDOK then