[link993]

Ув. Pilot Red, подскажи как осуществить передачу команды между двумя програмами (Sockets). Пробовал писать игру не получилось...

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  DoubleBuffered := True; // двойная буфферизация, чтобы не моргали компоненты на форме
if Key = VK_RIGHT then
  Shape1.Left := Shape1.Left + 1; // перемещаем вправо
if Key = VK_LEFT then
  Shape1.Left := Shape1.Left - 1; // перемещаем влево
if Key = VK_DOWN then
  Shape1.Top := Shape1.Top + 1; // перемещаем вверх
if Key = VK_UP then
  Shape1.Top := Shape1.Top - 1;  // перемещаем вниз
end;

Мне надо сделать так:

if Key = VK_UP then cокет посылает всем клиентам сообщение (команду) VK_UP , а клиенты уже на нее реагируют и двигают shape1 на своей форме вперед.