Form - Esconder e Mostrar a Barra de Titulo

// Elimina a barra de titulo

procedure TForm1.Button1Click(Sender: TObject);

var

  EstiloAtual : LongInt;

begin

  // pega estilo atual

  EstiloAtual := GetWindowLong(Handle, GWL_STYLE);

  // seta novo estilo sem título

  SetWindowLong( Handle, GWL_STYLE, EstiloAtual and not WS_CAPTION );

  // redesenha janelaa

  SetWindowPos(Handle,0,0,0,0,0, SWP_DRAWFRAME or SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER);

end;

// Mostra a barra de titulo

procedure TForm1.Button2Click(Sender: TObject);

begin

  SetWindowLong( Handle,GWL_STYLE, GetWindowLong( Handle, GWL_STYLE ) or WS_CAPTION );

  SetWindowPos(Handle,0,0,0,0,0, SWP_DRAWFRAME or SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER);

end;