Ты забыл оперторные скобки
begin ...
end, да и ";" не поставил
Код:
if Msg = Edit4.Text then
begin
ShellExecute(Self.Handle, 'open', PChar(OpenDialog1.FileName), nil, nil, SW_SHOWNORMAL);
ShellExecute(Self.Handle, 'open', PChar(OpenDialog1.FileName), nil, nil, SW_SHOWNORMAL);
end
else
Close;
А зачем ты два раза одно и тоже запускаешь?