Delphi-MessageBox

Mam problem mianowicie jak zmienić te poleceni ** MessageBox(Handle,'Jak tam ? ','Pytanie',MB_OKCANCEL + MB_IconInformation);** By na przykład po kliknięciu ok wyświetlał się komunikat zła odpowiedź .

Piszę z pamięci:

if (MessageBox(Handle,'Jak tam ? ','Pytanie',MB_OKCANCEL + MB_IconInformation) = ID_Ok) Then

ID_Ok, czy coś takiego...
Poszukaj.
PS: Możesz użyć MB_YesNo + MB_IconInformation
Wtedy będzie ID_Yes, czy coś takiego...

Nie chce mi się sprawdzać :)
MessageBox

Google mozna przecież używać jak się już umie czytać i pisać, a tego uczą w Polsce dzieci w wieku wcześniejszym niż 12 czy 13 lat. Nic nie usprawiedliwia lenistwa ;/ Masz i ogarnij się następnym razem używając google.

  case MessageBox(Application.Handle, 'Jak tam - uczysz się banalnych podstaw? ',
    'Pytanie', MB_OKCANCEL + MB_ICONINFORMATION) of
    ID_OK : MessageBox(Application.Handle, 'To dobrze, zawsze googluj zanim spytasz o pierd...',
        PChar(Application.Title), MB_OK + MB_ICONINFORMATION);