Probleme beim Laden von Dateien - Problem gefunden

[matashen]

Hallo zusammen,

ich hab ein Programm geschrieben, das verschiedene Dateien über eine Suche lädt und darstellt.

dabei erhalte ich immer öfter folgende Fehlermeldung:

Error Opening- ... - Das System kann den angegebenen Pfad nicht finden.

Der Pfad und die Datei sind aber vorhanden und wenn ich mit dem Explorer die Datei anklicke wird sie auch geöffnet.
Der Effekt tritt aber nicht immer ein.
Das Programm wird auch von mehreren Arbeitsplätzen genutzt und auf die Dateien von mehreren personen zugegriffen.

Hier meine Laderoutine, wo ich den Fehler vermute, komm aber irgendiwe nicht drauf

Delphi-Quellcode:

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

Ich hoffe irgendwer von auch kann mir einen Tip geben!

Gruß Matthias

[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;

[matashen]

hab das Problem gefunden.

Es lag an einer anderen Stelle.

Vielen Dank für die Hilfe.