Wie kann ich durch Mausklick ein Bild auswählen?

[Bummi]

Wenn Du mit Bildern TImages meinst die Du erzeugst, oder sichtbar schaltest kannst Du deren OnMouseDown und OnMouseMove Events verwenden.
Einfach allen Images dieselben Events zuweisen.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    FX, FY :Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.AllImagesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   FX := X;
   FY := Y;
end;

procedure TForm6.AllImagesMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
   if ssLeft in Shift then
     begin
      TImage(Sender).Left :=  TImage(Sender).Left - FX + X ;
      TImage(Sender).Top  :=  TImage(Sender).Top  - FY + Y ;
     end;
end;