Método free dentro de create

[[Lepe]]

Al método create no se le debe pasar parámetros, solamente aquel que necesite para crearse el objeto. Ese valor "par" lo puedes incluir como una propiedad del componente..

Precisamente la comprobación de si par es mayor que cero, lo debería hacer el programa principal, no tu clase.

Respecto a tu duda, creo que no existe nada, porque estas "saltándote" la filosofía POO.

Edito:

Código Delphi [-]
type
  EmyClass = class (Exception);

TmyClass = Class(TObject)
private 
  Fpar:integer;
  procedure SetPar(Value:integer);
public
  property Par :integer read Fpar write SetPar
end;

...
procedure TmyClass.SetPar(Value:integer);
begin
  if Value < 0 then
    raise emyClass.CreateFmt('El valor %d debe ser mayor que cero',[Value]);
  else
  begin 
    Fpar := Value;
   ....
  end;
end;

Código Delphi [-]

  myClass = TmyClass.Create;
try
  myclass.par := -1;
except
   on E :EmyClass then
     Freeandnil(myclass);
end;

Saludos.