Procedure ansprechen

[Matze1848]

Ich hab die Procedure

procedure TKreis.Zeichnen (Radius: Integer; Mittelpunkt: Integer);
var a:integer;
begin
With Form1.Canvas do begin
a:=Random(230);
Form1.Canvas.Ellipse(0,a,Radius,a+Radius);
end;
end;

und möchte die mit einem Button ansprechen

begin
TKreis.Zeichnen(40,1);
end;

irgendwie funktioniert das nicht, was mache ich falsch???