[timeless]

Не совсем понял. Но, мне кажется, нужно использовать MessageBox.
Например:

Код:

Var ExB: WORD;
begin
ExB:=MessageBox(handle,pchar('текст'),pchar('заголовок'),33);
if Exb=IDOK then
if Exb=IDCANCEL then