[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'ы не нужны.