Criando um form diferente

{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;