Найти путь к картинке.

procedure TForm1.Image1Click(Sender:TObject);
begin
Label1.Caption:='Имя картинки';
end;

Unit MyUnit;
 
interface;
 
type
 TMyImage = class(TImage)
  private
   fn:string;
   procedure setfn(Value:string);
  public
   property FileName read fn write setfn default '';
 end;
 
 procedure Register;
 
implementation
 
procedure Register;
begin
 RegisterComponents('Additional',[TMyImage]);
end;
 
procedure TmyImage.SetFn(Value:String);
begin
 fn:=Value;
end;
 
end.

procedure TMyPicture.LoadFromFile(const Filename: string);
var
  Ext: string;
  NewGraphic: TGraphic;
  GraphicClass: TGraphicClass;
begin
  LoadedFileName = FileName;
  Ext := ExtractFileExt(Filename);
  Delete(Ext, 1, 1);
  GraphicClass := FileFormats.FindExt(Ext);
  if GraphicClass = nil then
    raise EInvalidGraphic.CreateFmt(SUnknownExtension, [Ext]);
 
  NewGraphic := GraphicClass.Create;
  try
    NewGraphic.OnProgress := Progress;
    NewGraphic.LoadFromFile(Filename);
  except
    NewGraphic.Free;
    raise;
  end;
  FGraphic.Free;
  FGraphic := NewGraphic;
  FGraphic.OnChange := Changed;
  Changed(Self);
end;

var ImagePath: TStringList;
 
 
Image1.LoadFromFile('xxxxxxxxxxxxx');
ImagePath.Values['Image1']='xxxxxxxxxxxxx';
 
 
А свойстве OnClick картинок сделаем так;
 
MyImagePath:= ImagePath.Values [(Sender as TImage).Name];

procedure TMyPicture.LoadFromFile(const Filename: string);