[ecfisa]

Hola adebonis.

Podes usar un TToolBar, ejemplo:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ToolBar1.Visible := False;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  ToolBar1.Visible := Y <= ToolBar1.Height;
end;

Salida:


Saludos