Jak zmienić nazwę MessageBox'a

Problem jest takiej natury :

begin
tytul:=Edit1.Text;
if Table1.Locate('Tytul',tytul,[loPartialKey,loCaseInsensitive])
then
ShowMessage('Znaleziono film '+Table1['Tytul'])
else
ShowMessage('Nie ma takiego tytulu');
end;

MessageBox który się pojawia ma tytuł Project2 a ja chciałbym go zmienić tylko niestety nie wiem jak :( proszę o pomoc.

Trzybobry!

1. Zmien nazwe aplikacji na cos innego niz Project2
2. Uzyj MessageBox, a nie ShowMessage

MessageBox(Handle, 'Tu wpisz tresc Boxa','Tytul okienka',przyciski+iconka);

Przyciski:
MB_OK, MB_OKCANCEL, MB_YESNO itp

Ikonki:
MB_ICONWARNING, MB_ICONINFORMATION, MB_ICONCONFIRMATION (nie jestem pewien czy taka istnieje)

Pozdrawiam!

Application.Title := 'Nazwa programu i jednocześnie tytuł messageboxa';

No wiec powinno byc tak:
MessageBox(0, pChar(edit1.text),pChar(edit2.text),mb_iconinformation);

MessageBox który się pojawia ma tytuł Project2 a ja chciałbym go zmienić tylko niestety nie wiem jak

Więc okno ShowMessage przyjmuje tytuł projektu.. dlaczego na samym poczatku nie nazwales projektu tak jak chciales by sie nazywał??

Zawsze można to w Delphi łatwo odkręcić..

Zmień nazwę *.dpr i *.res na swoją nową..potem w Project source zmien na górze starą nazwę res na nowa i już