Someone

procedure TFormMain.PhotoMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   ClickedImage: TImage;
   i: Integer;
begin
   ClickedImage:=Sender as TImage;
   case PhotoAction of
      Delete:
            begin
               Edit1.text:='hej';
               Files.Delete(ClickedImage.Tag);
               ClickedImage.Destroy;
               for i:=ClickedImage.Tag to PhotoCount-1 do
               begin
                  Photos[i]:=Photos[i+1];
                  Photos[i].Tag:=Photos[i].Tag-1;
               end;
               PhotoCount:=PhotoCount-1;
               SetLength(Photos,PhotoCount);
               FormResize(Sender);
            end;

      Flip:
            begin
               edit1.text:='nej';
               if Button=mbright then ClickedImage.Picture.Bitmap:=RotateBitmap90(ClickedImage.Picture.Bitmap);
               if Button=mbleft then ClickedImage.Picture.Bitmap:=RotateBitmap270(ClickedImage.Picture.Bitmap);
            end;

   end;

end;