Delphi i sockty - jak sprawdzić czy doszło

Czy moge jakoś sprawdzić czy wiadomość wysłana do serwera przez gniazdka doszła pomyślnie, jeśli nie to wysłać ponownie aż do skutku? Tak wysyłam wiadomość:

 Client.Socket.SendText(srv.text);

Coś takiego:

repeat
Client.Socket.SendText(srv.text);
until
doszlo = true;

Tylko jak to zrobic?

jak nie dojdzie to dostaniesz błąd