Probleme beim Laden von Dateien - Problem gefunden

[ibp]

Delphi-Quellcode:

procedure Loadpic; 
begin; 
currentfile:=opendialog1.filename; //<------------------
if opendialog1.execute then
with planmarker do begin; 
    with TLinearBitmap.Create do 
      try 
      cursor:=crHourGlass; 
        planmarker.Image.Picture:=nil;
        LoadFromFile(currentfile); 
        //savedialog1.filename:=currentfile; 
        AssignTo(Image.Picture.Bitmap) 
      finally 
      Free; 
      cursor:=crcross; 
      end; 
end; 
end;