Это куски из демки:
на сервере есть такой код:
| Код |
if Command = 'QUIT' then
begin
AThread.Connection.WriteLn('Goodbye!');
AThread.Connection.Disconnect;
end
|
в клиенте на кнопке разрыва:
| Код |
procedure TfrmMain.btnDisconnectClick(Sender: TObject);
var otv: string;
begin
Writeln('QUIT');
otv:=ReadLn;
if otv='GoodBay!' then
begin
//Здесь делай что те нужно
end;
if IdTCPClient.Connected then
try
IdTCPClient.Disconnect; // we can disconnect from either the server or the client side
btnConnect.Enabled := true;
btnDisconnect.Enabled := false;
except on E : Exception do
ShowMessage(E.Message);
end;
end;
|
А вооще я переделал только 2 функции , так что далее разбирайся сам  смысл должен быть понятен.
В прикрипленном файле полный текст сервера и клиента из демок, там без переделки 
Добавлено @ 13:03
Только так наверное правильнее (дельфи под рукой нет)
| Код |
IdTCPClient.Writeln('QUIT');
otv:=IdTCPClient.ReadLn;
|
|