MessageBox???

Необходимо изменить одну строку:
Begin
with Application do
begin
NormalizeTopMosts;
MessageBox(Edit1.Text, 'Look',1);
RestoreTopMosts;
end;
end;
или задать новую переменную и присвоить ей содержимое edit1 и далее использовать ее:
var s:string;
begin
s:=edit1.text;
NormalizeTopMosts;
MessageBox(s, 'Look',1);
RestoreTopMosts;
end;
и все

Нет так не выйдет, пробывал!!!
Правильно как я уже нашел:

Нов се равно спасибо!!!:)

В принципе PChar можно не ставить у 'Message', а если не будет PChar у первого, то он будет ругаться на не соответсвие типов:)

а как на счет

где MB_ICONERROR может быть:
MB_ICONINFORMATION
MB_ICONWARNING
MB_ICONQUESTION

а MB_OK может быть:
MB_ABORTRETRYIGNORE
MB_OKCANCEL
MB_RETRYCANCEL
MB_YESNO
MB_YESNOCANCEL

и ещё несколько параметров может быть (кнопка Help, своя кнопка...).... подробней смотри MSDN