一个明天要考试的题目，请兄弟姐妹们帮帮忙！(100分)

1、自己新建一个工程，设计界面如图。在实现部分定义一个类 （名字为“Tmerchandise”），它是TObject的派生类，包括的字段有：Name（产品名）、Kind（类型）、Price1（成本价）、Price2（销售价格）、Produce_Address（产地）
；包括的方法有：Buy、Sale。
Buy（用于计算买入时的交易金额）函数描述：参数为（Num、Price1）返回交易的金额。（交易金额为Price*Num）Sale（用于计算某种商品的销售价）过程描述：参数为（Kind、Price1）。（如果是“日用品”毛利为50%，而非“日用品”毛利为80%,该过程根据Kind得到毛利计算出该商品的销售价，销售价=价格*（毛利+1））。（各变量的类型自定）
并完成如下操作：
1、 声明一个该类的对象goods，将它的Name赋值为“毛巾”，Kind赋值”，Price1赋值为“日用品为10.5元，Produce_Address赋值为“上海”。
2、 调用该对象的Buy函数（参数为：100、该对象的价格）和Sale过程，分别返回给用户交易金额和销售价（如图）。（14分）
按下Button1后将弹出下面两个窗口：

很急用的，在线等待......

看不到你的图,...

你自己定义接口吧，
type
tstoreinterface=interface
(ctrl+shift+g)
function buy(a:real;b:string):real;
function sale(x:real;y:string):real;
end;
type
TMYinterface=class(tinterfacedobject,tstoreinterface)
var
Name//（产品名）,Kind//（类型）,Price1//（成本价）,Price2//（销售价格）,Produce_Address//（产地）
:string;
function buy(a:real;b:string):real;//--按(ctrl+shift+c)

function sale(x:real;y:string):real;//--按(ctrl+shift+c)

end;


var
tyourinterface:tmyinterface;

//---实现部分可以写好你要的函数吧

你的图片看不到，我想大概是这样实现的：
类的声明：
unit Unit2;

interface
type
Tmerchandise = class(TObject)
Name:String;
Kind:String
//（类型）
Price1:float
//（成本价） //具体的类型可以自己定义
Price2:float
//（销售价格）
Produce_Address:String
//（产地）
private
function Buy(ANum:Integer;APrice:float):float;
function Sale(AKind:String;APrice:float):float;
{ Private declarations }
public
{ Public declarations }
end;
implementation

{ Tmerchandise }

function Tmerchandise.Buy(ANum: Integer
APrice: float): float;
begin
Result:=ANum*APrice;
end;

function Tmerchandise.Sale(AKind: String
APrice: float): float;
var
f_Tmp:Float
//毛利
begin
if AKind='日用品' then
begin
f_Tmp:=0.5;
end
else if AKind='非日用品' then
begin
f_Tmp:=0.8;
end;
Result:=APrice*(f_Tmp+1);
end;

end.