[Keygenmusic]

Код:

procedure TForm1.FormShow(Sender: TObject);
var tmp:dword;
begin
  SetWindowLong(Handle,GWL_STYLE, WS_SIZEBOX or WS_BORDER);
  tmp:=GetSystemMetrics(SM_CYCAPTION);
  Height:= Height - tmp; //убрать как бы то, что осталось от заголовка и 
  Top:=Top + tmp;  //заодно подвинуть под заголовок и перерисовать окно.
end;