[ryderx34]

Показывает картинку в отдельном окне:

Код:

procedure ViewImage(const FileName: string);
var
  ImgForm: TForm;
begin
  ImgForm := TForm.Create(nil);
  with ImgForm do
  try
    BorderIcons := [biSystemMenu];
    BorderStyle := bsSingle;
    Caption := ExtractFileName(FileName);
    ClientHeight := 240;
    ClientWidth := 320;
    Position := poDesktopCenter;
    with TImage.Create(ImgForm) do
    begin
      Parent := ImgForm;
      Align := alClient;
      Picture.LoadFromFile(FileName);
      Stretch := True;
    end;
    ShowModal;
  finally
    Free;
  end;
end;