Abfrage welche Datei in TImage.picture geladen ist

[Sir Rufo]

Gar nicht, denn der Image-Komponente ist es sowas von egal, woher die Daten stammen.

Wenn diese Information benötigt wird, dann musst du dir die schon selber merken.

z.B. über eine Eigenschaft

Delphi-Quellcode:

TForm1 = class( TForm )
Image1 : TImage;
private
  FImageFile : string;
  procedure SetImageFile( const Value : string );
public
  property ImageFile : string read FImageFile write SetImageFile;
end;

procedure TForm1.SetImageFile( const Value : string );
begin
  if Value = ImageFile then
    Exit;

  Image1.Picture.LoadFromFile( Value );
  FImageFile := Value;
end;

Der Setter erfüllt nun mehrere Sachen:
Die gleiche Datei (gleicher Name) wird nur einmal geladen, auch wenn man die x-mal zuweist.
Konnte die Datei nicht geladen werden, so wird auch der Dateiname nicht gespeichert (weil dann eine Exception geworfen wird)