[Delphi] Serwer proxy

Witam

Chcialem napisac sobie serwer proxy ale mam z tym problem, moj kod wyglada tak:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Edit1.Text:=Socket.ReceiveText;
  memo1.Lines.Add(Edit1.Text);
  ServerSocket1.Socket.SendText(Edit1.Text);
end;


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Edit2.Text:=Socket.ReceiveText;
  memo2.Lines.Add(Edit2.Text);
  ClientSocket1.Socket.SendText(Edit2.Text);
end;

ale za kazdym razem dostaje blad o asynchronizacji... nie wazne z jakiego portu korzystam...

Przegladalem forum i bylo dosc duzo opisane o tserversocket i tclientsocket ale tylko jako 1 element w 1 aplikacji a ja w sumie potrzebuje te 2 elementy w 1 aplikacji...