Отлов нажатий клавиш

[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;

[ViNT]

Так будет лучше:

var
 K:Integer;
while true  do 
begin
 K:=GetKeyClicked;
 if K = KE_KEY1 then 
  b := socket.write(72);
 if K= KE_KEY2 then 
  b := socket.write(80);
 if K = KE_KEY0 then 
 begin
  socket.close;
  delay(1000);
  halt;
 end;
 Delay(200);
end;

Если ничего не рисуется на экране, то repaint'ы не нужны.

[SkyFox]

Сообщение от ViNT

Так будет лучше:

Если ничего не рисуется на экране, то repaint'ы не нужны.

спасибо, дома буду, попробую. у меня там еще был drawtext, чтобы видеть клавиши нажатые, их убрал а repaint забыл)