Du hast es also mit 2 Pfaden zu tun:
* der Pfad aus dein Anwendungsverzeichnis
Delphi-Quellcode:
function ApplicationPath: string;
begin
Result := ExtractFilePath(ParamStr(0));
end;
* der Pfad zu deinem Bild
Aus diesen beiden Pfaden möchtest du einen relativen Pfad erhalten.
Dazu gibt es diese Funktion in SysUtils
function ExtractRelativePath(const BaseName, DestName: string): string;