연결은 잘 돼는데 왜 클라이언트에서 접속을 끊으면
IDE 상에서 에러가 납니다.
그냥 exe 파일을 실행시키면 에러가 나지 않습니다.
예외처리를 해 주어야 하나요?



서버 ==============================================
procedure TForm1.IdCmdServerExecute(AThread: TIdPeerThread);
var
  RcvText : string;
begin
  while AThread.Connection.Connected do
  begin
    RcvText := AThread.Connection.ReadLn;
    if RcvText = '' then Exit;

    SetText(RcvText);
  end;
end;

클라이언트 ========================================
procedure TMainForm.BitBtn3Click(Sender: TObject);
begin
  IdCmdClient.WriteLn('test2');
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if IdCmdClient.Connected then
  begin
    IdCmdClient.Disconnect;
  end;
end;