Fórum Erro na API de Sockets... #231758

Nesta procedure de OnConnect de um Server Socket:

[b:5003319d79]procedure[/b:5003319d79] Tprincipal.atlantesClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
[b:5003319d79]begin[/b:5003319d79]
atlantes.Socket.SendText(boasvindas);
[b:5003319d79]end;[/b:5003319d79]

Após a compilação, quando um cliente conecta nesse servidor (aonde a ação de envio de variável é executada) ele dá esse erro:
[color=red:5003319d79][b:5003319d79]Access violation at address 00BD6969. Read of address BDD42BDC.[/b:5003319d79][/color:5003319d79]
No Run do Delphi, quando essa ação é executada:
[color=red:5003319d79][b:5003319d79]Project atlantes.exe raised exception class ESocketError with message ´Windows socket error: (10057), on API´send´´´. Process stopped. Use Step or Run to continue.[/b:5003319d79][/color:5003319d79]