删除的提示框问题

[NEEZA哪吒]

IF MessageBox(Handle, '删除？', '警示', MB_OKCANCEL + MB_ICONWARNING)=IDOK Then
begin
Main.ADOQuery1.Delete;
end;

我要实现的是：

ADOQuery01.FieldByName('SourceName').AsString;//获取到了，李四，这段代码防在哪里
点击删除则提示：删除李四？

IF MessageBox(Handle, '删除？+ADOQuery01.FieldByName('StudentName').AsString;', '警示', MB_OKCANCEL + MB_ICONWARNING)=IDOK Then
begin
Main.ADOQuery1.Delete;
end;

[hj8090]

  if MessageBox(Handle, PChar(Format('删除%s？', [ADOQuery01.FieldByName('StudentName').AsString])), '警示', MB_OKCANCEL + MB_ICONWARNING) = IDOK then