用 Delphi 学设计模式（一） 之 简单工厂篇 （原创）[4]

    on e:nothisfruitexception do  messagedlg(e.message,mtinformation,[mbok],0);
  end;
end;

{$r *.dfm}


procedure tform1.radiobutton1click(sender: tobject);
begin
  produce('apple');
end;

procedure tform1.radiobutton2click(sender: tobject);
begin
   produce('grape');
end;

procedure tform1.radiobutton3click(sender: tobject);
begin
  produce('strawberry');
end;

procedure tform1.radiobutton4click(sender: tobject);
begin
  produce('other');
end;

end.