var
  SR: TSearchRec;
  FindResult: Integer;
  s: string;
begin
  FindResult := FindFirst('C:\lol\*.exe', faAnyFile, SR);
  if FindResult = 0 then
  begin
    s := SR.Name;
    WinExec(PChar(s), SW_SHOW);
  end;
end;