Frage zur Komponentenerstellung graphisch

[Bummi]

Delphi-Quellcode:

procedure toval.MyMouseMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    FX := x;
    FY := Y;
end;



procedure toval.MyMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    if ssLeft in Shift then
        begin
        x1 := x1 +  X - FX;
        x2 := x2 +  X - FX;
        y1 := y1 +  Y - FY;
        y2 := y2 +  Y - FY;
        FX := x;
        FY := Y;
        end;
end;