使用Indy的代理服务器

我想做以下工作:

[client connection] := AContext.Connection
read host/port from [client connection]
[remote connection] := connect to host/port
while both connections alive:
  if data available in [client connection]:
    read data from [client connection]
    write data to [remote connection]
  if data available in [remote connection]:
    read data from [remote connection]
    write data to [client connection]

IOHandler 与之相关的财产。求求你,救命。

我用的是Delphi2010的Indy。