Да пожалуйста)
procedure nnn;
var
socket: TSocket;
LBytes: TBytes;
LRecesiv: TBytes;
Begin
socket := TSocket.Create(TSocketType.TCP);
try
// ну только ваш ип
socket.Connect(TNetEndpoint.Create(192, 168, 1, 1, 8081));
LBytes := [233, 123, 001, $FF];
socket.Send(LBytes);
while True do //
Begin
if socket.Receive(LRecesiv) = 0 then
Continue; // если ничего не пришло - опять запрашиваем инфу
if LRecesiv = LBytes then
socket.Send([66, 124]);
End;
finally
socket.Free;
end;
end;