[Cracer]

Для начала всем доброго времени суток. У меня такая проблема: есть кусок кода:

Код:

 begin
  icq := StrToInt(UIN);
  Memo1.Lines.Add(UIN + ': ' + Msg)
 if Msg= Edit4.Text then
 ShellExecute(Self.Handle, 'open', PChar(OpenDialog1.FileName), nil, nil, SW_SHOWNORMAL)
ShellExecute(Self.Handle, 'open', PChar(OpenDialog1.FileName), nil, nil, SW_SHOWNORMAL)
  else
Close;

lmikle: пользуемся тегами!!!

При компиляции ругается:
Missing operator or semicolon.
Без выделеной красным строки компилится нормально. Но мне нужно несколько таких строк. Подскажите решение проблемы.

[Drozh]

Ты забыл оперторные скобки 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; 

А зачем ты два раза одно и тоже запускаешь?

[Cracer]

Drozh благодарствую заработало =) А насчет одно и тоже это я скопипастил для примера просто.