Вывод ошибки в блоке try...except

[Lokos]

Здравствуйте.
Как сделать следующее есть код

procedure OpenFile(FName:string);
var 
   f:textfile;
begin
   assign(f,FName);
   reset(f);
   closefile(f);
end;
procedure reeadFile();
begin
   try
      OpenFile('.......');
except
     Showmessage('error');
end

Думаю в данном случае при выполнении этого кода вылетит сообщение error а как можно вывести то сообщение об ошибке которое произойдет в программе?

[Сtrl]

except
     on E : Exception do
       ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);

[Lokos]

что то не работает с операторами

ошибка

[DCC Error] NedvigaAddForm.pas(1894): E2029 'END' expected but identifier 'DM1' found

[Lokos]

сделал)) надо было поставить составной оператор