[Страдалецъ]

1. Установить для всех картинок Proportional := True; Stretch := True;
2. Сделать единое событие для всех картинок по одинарному или двойному клику:

Код:

procedure TForm8.Image1Click(Sender: TObject);
begin
 if TImage(Sender).Align = alClient
 then TImage(Sender).Align := alNone
 else TImage(Sender).Align := alClient;
 TImage(Sender).BringToFront;
end;