Réponse acceptée !
Ou plus souple, avec une petite variante du TStringList que voici :

---

  TEnhancedStringList = class(TStringList)
  public
    function FindStringFromObject(AObject: TObject): string;
  end;

implementation

function TEnhancedStringList.FindStringFromObject(AObject: TObject): string;
var
  I: Integer;
begin
  Result := '';
  for I := Count - 1 downto 0 do
    if Objects[I] = AObject then
    begin
      Result := Strings[I];
      Exit;
    end;
end;

---

Tu crée une variables globale FileNames: TEnhancedStringList que tu crée dans le OnCreate de la fiche.
Ensuite, à chaque endroit où tu fais Picture.LoadFromFile(xxxxx) tu ajoute en dessous: FileNames.AddObject(xxxxxx, Picture)

Pour rechercher un nom de fichier de Pic, il suffit donc de faire FileNames.FindStringFromObject(Pic)

Et voila !
++
Flo