Filtro en delphi

[edribalo]

Disculpen queria saber si alguien me podia a ayudar a filtar archivos que solo me impriman los .dpr en el memo aqui les dejo el codigo

Código Delphi [-]
procedure FindFiles(StartDir:string);
const
  //MASK = '*.dpr';
  CHAR_POINT = '.';
var
  SR: TSearchRec;
  DirList: TStringList;
  IsFound: Boolean;
  i: integer;
begin

  if (StartDir[length(StartDir)] <> '\') then
  begin
    StartDir := StartDir + '\';
  end;

  // Crear la lista de ficheos en el dir. StartDir (no directorios!)
  IsFound := FindFirst(StartDir + '*', faDirectory, SR) = 0;

  DirList := TStringList.Create();

  // MIentras encuentre
  while IsFound do
  begin
    if(SR.Name <> '.') and (SR.Name <> '..') then
    begin
        DirList.Add(StartDir + SR.Name);
        ShowMessage(StartDir + SR.Name);
        FindFiles(StartDir + SR.Name);
    end;
    IsFound := FindNext(SR) = 0;
  end;

  FindClose(SR);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  sl : TStringList;
begin
 sl := TStringList.Create;
 FindFiles(edt1.Text);
 ESBMemo1.Lines.Text:= sl.GetText;
end;

end.