Si has ejecutado ese programa, que sepas que el primer archivo que encuentra no busca en su interior:
Código Delphi
[-]
function TForm1.lFile(dOrigen: string) : String;
var
sr: TSearchRec;
begin
Application.ProcessMessages;
chDir (dOrigen);
FindFirst (Edit3.Text, faAnyFile, sr);
while FindNext(sr)=0 do
Debería ser algo así:
Código Delphi
[-]
function TForm1.lFile(dOrigen: string) : String;
var
sr: TSearchRec;
Respuesta:integer;
begin
Application.ProcessMessages;
chDir (dOrigen);
Respuesta := FindFirst (Edit3.Text, faAnyFile, sr);
while Respuesta = 0 do
Lo mismo con la rutina LDir
saludos