Objekte bewegen

[-remit-]

Huhu,

ich möchte gerne ein Objekt (zur Zeit ist es ein einfacher Button, später soll es ein Image werden) bewegen. Zuersteinmal geschieht dies nur in x-Richtung. Mehr brauche ich glaube ich nicht sagen, der Quelltext macht deutlich was ich möchte:

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then
    begin
      if isright(x) then
        Button1.Left:=Button1.Left+1
      else
        Button1.Left:=Button1.Left-1;
    end;
end;

Delphi-Quellcode:

function isright (xvalue: integer): boolean;
begin
  if (lastpx < xvalue)  and (xvalue <> lastpx) then
    result:=true
  else
    result:=false;
  lastpx:=xvalue;
end;

Wenn ich jetzt auf das Panel klicke und die Maus bewege saust der Button nach links und verschwindet von der Form. Ich habe schon sehr viel ausprobiert, dies ist jetzt ein letzter Quelltext stand.
Wo ist der Fehler?