Método free dentro de create

[jam]

Bueno, ojeando la vcl se pueden encontrar varios ejemplos:

Código Delphi [-]
{ TFileStream }

constructor TFileStream.Create(const FileName: string; Mode: Word);
begin
  if Mode = fmCreate then
  begin
    FHandle := FileCreate(FileName);
    if FHandle < 0 then
      raise EFCreateError.CreateResFmt(@SFCreateError, [FileName]);
  end else
  begin
    FHandle := FileOpen(FileName, Mode);
    if FHandle < 0 then
      raise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);
  end;
end;

aquí se puede ver que se lanzan exepciones, yo lo que quería saber es si hay alguna alternativa a

Código Delphi [-]
try
fn:=Tfilestrem.create('fichero que no existe',fmopen)
except
 fn:=nil;
end;