Ich meinte auch, dass Du die Parameter von 'Application.MessageBox', 'Caption' und 'Text', vertauschst
function TApplication.MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;
Aber lass Dir Deinen Dialog mal anzeigen, dann siehst Du es selber
