Nimm CreateMessageDialog. Damit bekommst Du das fertige Fenste rund kannst jetzt selbst entscheiden, was du damit anstellen willst. Im Normalfall nur das:
Delphi-Quellcode:
FDlg:TForm;
procedure TForm1.Button1Click(Sender: TObject);
begin
Fdlg:=CreateMessageDialog('test',mtInformation,[mbYes,mbNo]);
try
Fdlg.showmodal;
finally
freeandnil(Fdlg);
end;
end;
Und über FDlg hast du jetzt Zugriff auf die Form und kannst sie schließen (z.B.: Fdlg.Modalresult:=mrCancel).