Prbl. mit zeichnen meiner Kompo (Sin,Cos)

[Alex_ITA01]

habe es jetzt mal so hier versucht:

Delphi-Quellcode:

procedure TMeineKompo.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  tmpGrad  : Double;

  Point : TPoint;

  dy,
  dx : Integer;
begin
  inherited;
  if ComponentState = [csDesigning] then Exit; { Nur zur Laufzeit ausführen }

  if Button = mbLeft then
  begin
    if Style = tsLine then
    begin
      Point.X := X;
      Point.Y := Y;

      dy := Self.Mittelpunkt.Y - Point.Y;  //Mittelpunkt enthält nur die X und Y von dem Kreis.
                                             Nicht von der gesamten Komponente
      dx := Self.Mittelpunkt.X - Point.X;

      tmpGrad := ArcTan(dy/dx);
    end;
  end;
end;

Leider gibt mir ArcTan immer nur Werte im Bereich von -2 bis +2 zurück. (ich hatte immer so 1,8... -1,3 obwohl ich an komplett verschiedene Stellen geklickt habe)

Hast du eine Idee woran das liegt?

MFG Alex