Como evitar as mensagens de warning do compilador ?

{$WARNINGS OFF}
function TfrmEdit.ProjectTypeToUse(const cPath: string): Integer; var
SR: TSearchRec;
begin
if not DirectoryExists(cPath) then begin
ErrMsg('Path não localizado!');
Exit;
end;
try
if FindFirst(cPath + '*.VBP',faDirectory,SR) = 0 then
Result := VBP_FILTER
else
Result := DPR_FILTER;
except
ErrMsg('Falha de sistema -' + cPath);
Result := 1
end;
end;
{$WARNINGS ON}