[fpc-pascal] Implementing Factory Method with Pascal

[Mattias Gaertner]

One solution:

var
  animal: TDog;
BEGIN
  animal := TAnimalFactory.create(atDog) as TDog;
  try
    animal.bark;
  finally
    animal.free;
  end;
END.


Mattias