[[Lepe]]

Ya puestos a trabajar de la forma de roman, se podría hacer algo más automático:

Código Delphi [-]

 TForm1 = class(TForm)

private
   FFrameActivo : TFrame;
  procedure SetFrameActivo(const Value:TFrame);
public
  FrameActivo :TFrame read FFrameActivo write SetFrameActivo;
...

procedure TFrom1.SetFrameActivo(const Value:TFrame);
begin
  if Assigned(FFrameActivo) and (FFrameActivo <> Value) then
  begin 
    FFrameActivo.Hide;
  end;
  FFrameActivo := VAlue;
  FFrameActivo.Show;
end;

Con este rollo, a partir de ahora solo tienes que hacer:

Código Delphi [-]
  FrameActivo := frame1;

y listo, se oculta el que se estaba viendo y se muestra el nuevo.

Saludos