Basit bir server-client yapabilirsin. Zor birşey değil. Sockets ile yapılmış bir chat örneği bul mantık aynı, mesela string to hex olarak gönder veriyi ilk 2 haneyi kontrol ettir.

Server dosyasında örneğin:

 for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin
    with ServerSocket1.Socket.Connections[i] do
    begin
      sRec := ReceiveText;
      if sRec <> '' then
      begin
komut := Leftstr(HexToString(sRec),2);
if sRec = 'AA' then
showmessage('Birinci komut geldi');

şeklinde yapabilirsin, zaten birçok örnek mevcut.

Not: Okullardan istenilen ödev, proje kapsamına giren herşeyi öğrencinin kendisinin yapması taraftarıyım. Zaten yeterli bilgi internet üzerinde mevcut.