[argami]

Pruebalo

Código Delphi [-]
var
  Form1: TForm1;
  BAr :Boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  BAr:= False;
  While not Bar do
  begin
   Application.ProcessMessages;
   Edit1.Left := Edit1.Left - 1;
  end;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Bar := TRue;
end;

end.