Wie die Ecken eines (Speed)Buttons abrunden?

[dopeline]

jo das funzt net:

Code:

procedure TForm1.FormCreate(Sender: TObject); 
var 
  CLFRgn: HRgn; 
begin 
  CLFRgn := CreateEllipticRgn(0, 0, Form1.Width, Form1.Height); 
  SetWindowRgn(Form1.Handle, CLFRgn, True); 
end;

sagt er mir "Undefinierter Bezeichner: 'Handle'"

wie Christian Seehase schon gesagt hat. da muss es doch noch ne andere möglichkeit geben. in der hilfe steht nichts dazu.