try
        if OpenPictureDialog1.Execute
           then Image1.picture.LoadFromFile(OpenPictureDialog1.FileName);
      except
        on EInvalidGraphic do ShowMessage('Неверный формат');
      end;

Люди как засечь ошибки? никак не выходит! ((
Очень срочно нада!!!
Т.е. выбираем файл а он чтобы ошибки не пихал! ((

DOG-Paul, ну, ты же привел код... Он нормально засекает ошибки. Только что проверил... В чем проблема?

Куда не пихал? Он выводит то сообщение, которое задано тобой же - "Неверный формат".

у меня прёт обычная ошибка erroor (((

или отключи встроенный отладчик или отключи перехват исключений делфи.

первое: Tools -> Debugger Options [X] Integrated Debugging

второе: Tools -> Debugger Options -> Language Exceptions [X] Stop On Delphi Exceptions

а лучше ничего не отключай. пусть говорит что работает. будешь знать что кеод именно срабатывает, это дает хороший опыт. и изучи получше все про обработки ошибок. ;)