[SkyFox]

вобщем програмлю второй день, над кодом прошу сильно не смеяться и ногами не пинать
как этот кусок кода сделать более правильным?
в этом случае мой SE клавишу 1 ловит практически всегда, клавишу 2 - 5 из 10 раз , клавишу 0, 2 из 10.

while true = true  do 
begin
if getKeyClicked = KE_KEY1 then 
  begin 
  b := socket.write(72);
  repaint;
  end;
if getKeyClicked = KE_KEY2 then 
  begin 
  b := socket.write(80);
  repaint;
  end;
if getKeyClicked = KE_KEY0 then 
  begin
  socket.close;
  delay(1000);
  halt;
  end;
 end;