아래소스를 DLL에 입력햇는데 연결,보내기까지는 됩니다.
그런데 받는 부분이 안됩니다
데이타를 보내기까지 하고 나서 바로 finally 이 부분이 실행이 됩니다
아래소스를 그냥 일반폼에 두면 받는 부분까지 되고 finally이 실행이됩니다
이거 어떻게 해결해야됩니까
제발 가르쳐주세요

============================================================================
   try

      Result := False;
       try
           IdTCPClient1 := TIdTCPClient.Create(Application);
           IdTCPClient1.Host := Server_IP;
           IdTCPClient1.Port := Server_Port;
           IdTCPClient1.ReadTimeout := 10000;
           IdTCPClient1.RecvBufferSize := 32768;
           IdTCPClient1.SendBufferSize := 32768;

           IdTCPClient1.Connect(2000);

           Result := True;
      except
           Note := '서버연결 에러 ';

      end; //try

      try
           IdTCPClient1.WriteLn(aData);
           Result := True;
      except
           Result := False;
           Note := '전문 보내기 에러 ';
      end;

      try
    data := IdTCPClient1.ReadLn('', 10000);


           Note := aData;
           Result := True;
      except
           Result := False;
           Note := '응답시간 초과 에러 ';
           if  Not IdTCPClient1.Connected then
           begin
               Result := False;
               Note := '소켓 작동 꺼짐 에러 ';
               exit;
           end;
      end;

   finally
       Result := False;
       Note := '소켓 삭제 에러 ';
       if IdTCPClient1.Connected then
       begin
           IdTCPClient1.Disconnect ;
           IdTCPClient1.Free;
       end;
   end;