[dr. F.I.N.]

Код:

constructor TMy.Create;
begin
  inherited Create;
  //какие-то действия по инициализации
end;

constructor TMy.Create(AName: String);
begin
  Create;
  FName := AName;
end;