Ошибка в try...except

[McLion]

Не могу понять в чем проблема. Вот код:

Код: Выделить всё

    try
      //
    except
      on E: Exception do lvStr := 'Ошибка!' + sLineBreak + sLineBreak + E.ClassName + sLineBreak + E.Message;

      MessageDlg(lvStr, mtError, [mbOk], 0);
    end; 


Выдает:

main.pas(154,7) Fatal: Syntax error, "ON" expected but "identifier MESSAGEDLG" found

Что ему надо, подскажите пожалуйста.

[Penilopa P]

on E: Exception do begin ... end

[McLion]

Делал уже, не помогает.

[Mirage]

Чаво делал-то?

Код: Выделить всё

try
      //
    except
      on E: Exception do
      begin
        lvStr := 'Ошибка!' + sLineBreak + sLineBreak + E.ClassName + sLineBreak + E.Message;
        MessageDlg(lvStr, mtError, [mbOk], 0);
      end;
    end;