1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure keycheck;
begin
  while true do
    begin
      if boolean(getasynckeystate(vk_left)) then
        form1.button1.left:= form1.button1.left - 1; 
      if boolean(getasynckeystate(vk_right)) then
        form1.button1.left:= form1.button1.left + 1; 
      if boolean(getasynckeystate(vk_up)) then
        form1.button1.top:= form1.button1.top - 1; 
      if boolean(getasynckeystate(vk_down)) then
        form1.button1.top:= form1.button1.top + 1; 
      sleep(50); //je kleiner desto schneller die bewegung
    end;
end;					

1:
2:
3:
4:
5:

var
  tid: cardinal;
begin
  createthread(nil, 0, @keycheck, nil, 0, tid);
end;