procedure TFilesList.fGetFilesList(flPath : string; m1 : TMemo);
var
  Sr : TSearchRec;
  Attr : Integer;
  flCount : Integer;
  arCount : Integer;
begin
  try
    if FindFirst(flPath + '*', Attr, Sr) = 0 then
      repeat
        flCount := flCount + 1;
        arCount := flCount - 1;

        SetLength(flList,flCount);
        flList[arCount] := TflFile.Create;
        flList[arCount].flName := Sr.Name;

        m1.Lines.Add(flList[arCount].flName);
        flFileCount := flCount;
      until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;

end;