Gracias caral, ya invente un sistema acorde con lo que me decias.
Un tpanel, empezando en la izquierda y si se mueve el raton en la zona que debe dibujarse sale, lo unico malo es que tengo que poner un boton para ocultarla.
Código Delphi
[-]
procedure Tfentrada.pmadminisMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
posi:integer;
begin
if ((x>=-1) and (x<=5)) and (pmadminis.width=5)then
for posi :=5 to 88 do
pmadminis.Width:=posi*2;
end;
gracias
saludos