public
miFrame : TFrame;
...
procedure TPrincipalForm.JvXPBar5ItemClick(Sender: TObject;
Item: TJvXPBarItem);
begin
if assigned(miFrame) then
begin
miFrame.Free;
miFrame:= nil;
end;
Case Item.Index of
0:begin miFrame:=TOficodasFrame.Create(nil);
end;
1:begin miFrame:=TBodegaFrame.Create(nil);
end;
2:begin miFrame:=TNucleosFrame.Create(nil);
end;
3:begin miFrame:=TConsumidoresFrame.Create(nil);
end;
End;
miFrame.Parent:=Panel1;
miFrame.align:=alClient;
end;