Ich habe deinen Fehler gefunden:
Code:
if WSALookupServiceNext(hLookup, flags, bufferLength, @pResults) = 0 then begin
da muss das @ weg vor pResults.
Dann sollte es eigentlich gehen.
EDIT:
Und in deiner callback Funktion fehlt noch ein ^ hinter pValueStream:
Code:
TMemo(Param).Lines.Add(Format('Callback pValueStream: %d', [pValueStream]));