procedure TfmMain.FillMaps;
var
  F : TSearchRec;
begin
  FindFirst(Config.PoADir + '/maps/',faAnyFile,F);
  repeat
    if ExtractFileExt(F.Name) = '.bsp' then
      cbMapList.Items.Add(ExtractFileName(F.Name));
  until FindNext(F) <> 0;
  FindClose(F);
end;