Fórum Erro assícrono 10049 #340487

Bom dia a todos.

Estou tendo problemas com socket. Preciso desenvolver um sistema de troca de informações entre o servidor e as estações.
Ao efetuar os testes com dois terminais, lentamente, funciona beleza. Mas ao efetuar os testes de forma rápida e repetitiva, está gerando erro Assícrono 10049.
Segue abaixo o código do servidor e da estação:

***** código de solicitação das estações ************
procedure TForm2.Button12Click(Sender: TObject);
begin
ClientSocket1.address := ´192.168.0.101´; // conectando ao servidor
ClientSocket1.Active := True;
end;

procedure TForm2.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText(´192.168.0.5´); // enviando IP_terminal
end;

procedure TForm2.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin // recebendo resposta
resp := Socket.ReceiveText; // resposta do servidor
ClientSocket1.Active := false;
end;

******* Programa no servidor ***************
OBS: recebe = ClientSocket
manda = ServerSocket

procedure TFOlho.mandaAccept(Sender: TObject; Socket: TCustomWinSocket);
begin // informa quem está conectando
IsServer := True;
label5.caption := ´Conectado a : ´ + Socket.RemoteAddress;
end;

procedure TFOlho.recebeRead(Sender: TObject; Socket: TCustomWinSocket);
begin // recebendo os dados da estação
terminal := Socket.ReceiveText;
Verifique;
end;

procedure TFOlho.mandaClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin // recebendo os dados da estação (aqui talvez não precise)
terminal := Socket.ReceiveText;
Verifique;
end;

procedure TFOlho.mandaClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
label5.caption := ´Aguardando Conexão...´;
end;

procedure TFOlho.Verifique;
begin
Recebe.Active := False;
// busco no BD quem está ativo

recebe.host := ´192.168.0.101´;
recebe.Active := True;
end;

procedure TFOlho.recebeConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
if IsServer then
manda.Socket.Connections[0].SendText(resp)
else
recebe.Socket.SendText(resp);
end;

Grato pela atenção.