Bei uses hinzufügen: IdIntercept, IdInterceptThrottler
bei var für Form: GSpeed: integer;
ComboBox mit Werten füllen und beim IdClient wie unten Code einfügen.
Delphi-Quellcode:
procedure TForm1.TCPConConnected(Sender: TObject);
var
xIntercept: TIdInterceptThrottler;
begin
GSpeed := Integer(cmbSpeed.Items.Objects[cmbSpeed.ItemIndex]);
xIntercept := TIdInterceptThrottler.Create(TcpCon);
xIntercept.BitsPerSec := GSpeed;
TcpCon.IOHandler.Intercept := xIntercept;
end;