안녕하세요

소켓을 이용해서 통신을 하는데 문제가 있어서 글을 올립니다.
소켓을 이용해서 데이터를 보낼때만 소켓을 열고, 보내고 난뒤 바로 닫고 이런식으로 프로그램을 만들었는데
테스트를 해보니 1번은 데이터가 가고 2번째는 데이터가 안가고 3번째는 가고, 4번째는 안가고..
이런식으로 한번은 가고 또 한번은 안가고 이렇게 계속 반복입니다. 밑에 소스가 있으니 보시고 답변주시기
바랍니다.


procedure TMainForm.Send_com(Data : string);
var
        i : integer;
begin
        if not (C_SOCKET.Active) then
        begin
                C_SOCKET.Active := TRUE;
        end;

        if not (C_Socket.Socket.Connected) then
        begin
                Lb_Send.Caption := 'NOT CONNECTED  ';
                Exit;
        end;

        C_SOCKET.Socket.SendText(Data);
        Lb_Send.Caption := 'Send : ' + Data;
      
        C_SOCKET.Active := False;
      
end;