var
  LLine : String;
  b : Byte;
  a, i, i1 : integer;
  TBuffer, TBuff : TiDBytes;

Begin
if rdt_server.active then begin
 try
    AContext.Connection.IOHandler.ReadBytes(TBuffer, -1, False);
    //i := AContext.Connection.IOHandler.RecvBufferSize;
    i := SizeOf(TBuffer);
    a := 0;
    i1 := 0;
    edit1.Text := inttostr(i);
    while i > 1 do begin
     b := TBuffer[i1];
     edit2.Text := inttostr(b);
      if b <> 3 then begin
      edit3.Text := 'XXXXXXXXX';
        TBuff[i1] := b; // HIER BRICHT ER AB!!
        edit3.Text := 'AAAAAAAAA';
        i1 := i1 + 1;
        i := i - 1;
        a:= a + 1;
      end;
      if b = 3 then begin

         LLine := IdGlobal.BytesToString(TBuff, 0, a, nil);
         mbo_rdt_rec.Lines.Add(LLine);
         pnl_rdt_last_record.Caption := LLine;

      end;

    end;