Socket uden svar

Jeg har lavet følgende klasse der laver en socket til en server for at hente data. Den sender fint men socket'ens OnReceive event bliver ikke kaldt. Hvad er der galt?

Skal jeg selv loope efter kaldet og vente på OnReceive kaldes eller hvad?

  TOpslag = class
  private
    fSocket: TTcpClient;
    fPort: string;
    fIP: string;
    fOnReceive: TSocketDataEvent;
    fLastErrorRec: TErrorRec;
    procedure SocketReply(aSender: TObject; aBuf: pchar; var aDataLen: integer);
  public
    constructor Create(const aIP, aPort : string);
    destructor Destroy; override;
    property IP : string read fIP;
    property Port : string read fPort;
    function SendRequest(aKey : string) : boolean;
    property LastErrorRec : TErrorRec read fLastErrorRec;
    property OnReceive : TSocketDataEvent read fOnReceive write fOnReceive;
  end;

implementation

{ TOpslag }

constructor TOpslag.Create(const aIP, aPort: string);
begin
  inherited Create;
  fSocket := TTcpClient.Create(nil);
  fSocket.OnReceive := SocketReply; // Attaching event here
  fSocket.RemoteHost := aIP;
  fSocket.RemotePort := aPort;
end;

destructor TOpslag.Destroy;
begin
  try
    fSocket.Close;
    fSocket.Free;
  finally
    inherited;
  end;
end;

function TOpslag.SendRequest(aKey: string) : boolean;
var
  Stream : TMemoryStream;
  Req : TRequestRec;
begin
  result := false;

  fLastErrorRec := ErrorRecs[-1]; // Undefined!

  // Construct Request
  FillChar(Req,sizeof(TRequestRec),0);
  Req.Header.xyz := IntToStr(integer(fReqType))[1];
  StringToArray(aKey,Req.Data.Key,sizeof(Req.Data.Key));

  fSocket.Open;
  try
    Stream := TMemoryStream.Create;
    try
      Stream.WriteBuffer(Req,sizeof(TRequestRec));
      Stream.Seek(0,soFromBeginning);
      if fSocket.Connected then
      begin
        fSocket.SendStream(Stream); // Fire away!
        result := true;
      end;
    finally
      Stream.Free;
    end;
  finally
    fSocket.Close;
  end;
end;

// Never called!
procedure TOpslag.SocketReply(aSender: TObject; aBuf: pchar; var aDataLen: integer);
var
  i : integer;
  Found : boolean;
  ReplyRec : PReplyRec;
  RepError : integer;
  ErrorRec : TErrorRec;
begin
  ReplyRec := PReplyRec(aBuf);

  RepError := StrToInt(ReplyRec^.RepError);

  fLastErrorRec := ErrorRecs[0]; // OK is standard
  for i := low(ErrorRecs) to high(ErrorRecs) do
    if ErrorRecs[i].Nr = RepError then
    begin
      fLastErrorRec := ErrorRecs[i];
      break;
    end;

  if assigned(fOnReceive) then
    fOnReceive(aSender, aBuf, aDataLen);
end;