超菜鸟问题，怎样传递一个控件作为变量？？？立刻送分！

Question

procedure Move(Sender: TWinControl);
begin
  Sender.Left:=Sender.Left-10;
end;

Answer 1

procedure Move(var sender: TWinControl);
begin
  Sender.Left := Sender.Left-10;
end;

Answer 2

procedure Move(Sender: TControl);
begin
  Sender.Left:=Sender.Left-10;
end; 

Answer 3

function ca(e:TEdit):boolean;
begin
  showmessage(e.text);
  result:=true;
end;
...
ca();

Answer 4

procedure moveObject(Sender:TObject);
begin
  (Sender as TButton).left:=(Sender as TButton).left-10;
end;

Answer 5

procedure moveObject(obj: TComponent);
begin
  if obj is xxx
  dosomething
  else if obj is xxx
  do...
  ...
  else
  dodefault 
end;