я пытаюсь написать функцию проверки...
Код:
function CheckServer(aHost, aPort: string): Boolean;
var
UPD: TidUDPServer;
SendData: array of Char;
s: string;
begin
Result := False;
if (aPort = '') or (aHost = '') or (StrToInt(aPort) > 35555) or (StrToInt(aPort) <= 0) then
Exit;
UPD := TIdUDPServer.Create(nil);
try
UPD.DefaultPort := StrToInt(aPort);
s := #255#255#255#255'TSource Engine Query'#0;
SetLength(SendData, Length(s));
StrPCopy(@sendData[0], s);
UPD.SendBuffer(aHost, StrToInt(aPort), SendData[0], Length(SendData));
finally
FreeAndNil(UPD);
end;
end;
как привельно её дать процедуру OnRead?