åbne billede fil uden at kende fil-navnet?

Jeg har lige fået koden:
----------------------------------
procedure TForm1.ChooseFolderClick(Sender: TObject);
var st: string;
begin
  st:=trim(Path.Caption);
  if SelectDirectory('Vælg mappe','\',st) then Path.Caption:=trim(st);
end;

procedure TForm1.SubmitClick(Sender: TObject);
var
  sr: TSearchRec;
  Found: boolean;
  OldDir: string;
begin
  GetDir(0,OldDir);
  ChDir(ExcludeTrailingPathDelimiter(Path.Caption));
  try
    Found:=FindFirst('*.txt',faAnyFile,sr)=0;
    try
      while Found do begin
        RenameFile(sr.Name,Separator.Text+sr.Name);
        Found:=FindNext(sr)=0;
      end;
    finally
      FindClose(sr);
    end;
  finally
    ChDir(OldDir);
  end;
end;
----------------------------------------------
Denne kode omdøber filer efter et bestemt mønster. Den kræver, at man har FileCtrl under Uses. Så skal du bare rette i While-løkken. Der hentes alle filerne.

Første gang, man har fat i filen, virker det fint, men hvis man forsøger at nå den samme fil igen, sker der intet. Ved du hvorfor?

Hvad mener du med anden gang? Min kode finder kun alle filer én gang. Kører du den igen?

Nej, jeg kører den normalt ikke igen. Men jeg er da blevet lidt nervøs for, at koden ikke rydder rigtigt op efter sig, når den er færdig med filen.

Hmmm.. Nå men så prøv evt. at sætte dem til standard manuelt, når koden køres :)

Den virker dog fint, når jeg kører den anden gang, i en Click-procedure.

Aner ikke, hvad det er, men läg et svar.

En click-procedure, er når der klikkes på noget. Men her er svar.

Lukketid? =)