unit menu ;
interface
USES 
classes,sysutils;
type
{Events: TPSPMENU}


{Component Definition: TPSPMENU}
TPSPMENU = class(TPSPObject)
private
public
 constructor create(Aowner:TComponent);override;
 destructor destroy;override;
 procedure Execute;
   function AddItem (ItemName:String):integer;

published
end;


implementation
{Component Implementation: TPSPMENU}
function TPSPMENU.AddItem (ItemName:String):integer;
var
begin
if not(assigned(List)) then List:=tstringlist.create;
result:=List.add (ItemName);

end;

 constructor TPSPMENU.create(Aowner:TComponent);
begin
inherited create(aowner);
end;
 destructor TPSPMENU.destroy;
begin
end;
 procedure TPSPMENU.Execute;
begin
if not(assigned(List)) then List:=tstringlist.create;
{Now show the list}
for i:= 0 to List.count-1 do
begin
 Outputstream.write (List[i]);
 Outputstream.write('<BR>');
end;
end;


end.
