SaveDialog/OpenDialog Pfad vorgeben

[Woyzeck]

Eine Sache fehlt jetzt noch, damit mein Vorhaben komplett gelingt.

Und zwar möchte ich nur den Dateinamen selbst haben, der ausgewählt wurde.

Habe das folgendermaßen probiert umzusetzen:

Delphi-Quellcode:

procedure TfrmMain.btnBildClick(Sender: TObject);
var i:Integer; DateiPfad,InitDir,DateiName:String;
begin
if OpenPictureDialog1.Execute() then
begin
    DateiPfad:=OpenPictureDialog1.FileName;
    InitDir:=OpenPictureDialog1.InitialDir;
    ShowMessage(InitDir[1]);
    For i:=1 to (length(DateiPfad)-length(InitDir))do
begin
   DateiName[i]:=DateiPfad[length(DateiPfad)-length(InitDir)+1+i]; //Hier tritt der Fehler auf
end ;
end;

Was mache ich falsch?