Criando Forms não retangulares
Para alterar o formato do form, utilize a rotina abaixo no evento OnClick do form (de preferência troque a
propriedade BorderStyle para bsNone, e deixe os componentes mais ao centro do form):
procedure TForm1.FormCreate(Sender: TObject);
var
hR : THandle;
begin
{cria uma form de formato elíptico}
hR := CreateEllipticRgn (0,0,Width,Height);
SetWindowRgn (Handle,hR,True);
end;