TProxyConnectionInfo

type TProxyConnectionInfo = class(TPersistent)

protected

  FPassword: string;

  FServer: string;

  FUsername: string;

  FPort: Integer;

  procedure AssignTo(); override;

  procedure SetProxyPort();

  procedure SetProxyServer();

public

  procedure AfterConstruction; override;

  constructor Create;

  procedure Clear;

  destructor Destroy; override;

published

  property ProxyPassword: string; [rw]

  property ProxyPort: Integer; [rw]

  property ProxyServer: string; [rw]

  property ProxyUsername: string; [rw]

end;

TProxyConnectionInfo

TObject