В прошлый раз мы писали прогу для просмотра картинок, а теперь мы напишем продвинутую прогу просмотра картинок. Ну, чего собрался с духом? Тогда, как всегда, открывай Delphi, сохраняй проэкт под именем "coolImageViewer"(никакого более Cool`ного названия я не мог придумать :-( ...) Мы будем изменять все стандартные имена компонентов на свои...
 У формы имя пиши MainForm, а Caption Cool ImageViewer. Затем кинь 2 TButton, с именами open и close, а Caption`ами Открыть и Выход соответственно... Потом с закладки Additional кинь TImage, и поменяй имя на image, Proportional в True. Ну и наконец с закладки Dialogs кинь на форму компонент TOpenPictureDialog и назови его просто: OpenPicture - это стандартное диалоговое окно Windows, специализировано на открытие картинок.. Если ты посмотришь на закладку Dialogs, то ты там сможешь найти всякие диалоговые окна, но нас интерисует только TOpenPictureDialog. Фильтр файлов вводить ручками не надо, там уже он есть.
Т.к. у нас КУУЛЬНАЯ прога, то надо что-бы она, распозновала формат *.JPG... И для этого в раздел uses подключим модуль для работы с форматом *.jpg - jpeg Kликай 2 раза на кнопку открыть, и у тебя должно быть вот что:

procedure TMainForm.openClick(Sender: TObject);
begin
If OpenPicture.Execute then // если выбрали в диалоге файл то
 begin
   Image.Picture.LoadFromFile(OpenPicture.FileName); //загружаем картинку в TImage
   MainForm.Caption:='Cool Image Viewer - ' +OpenPicture.FileName; // изменяем caption формы
 end;
end;

Ну а когда 2раза ты кликнешь по кнопке ВЫХОД, то надо писать вот что:

Application.Terminate;

Если чего не понятно, то пиши на мыло vostepan@mail.ru

На всякий случай вот тебе исходнЯк(6,54 kb)