type THuman = TObject private sex:boolean;
mouth:TObject;
FMsg:string;
public function kiss(sender:THuman):boolean;
end;
function THuman.kiss(sender:THuman):boolean;
begin
result := true;
if sender.sex = self.sex then
begin
result := false;
FMsg := 'I can not';
end;
end;