procedure TForm1.doMake(AThread: TIdPeerThread; Strings: TStringList);
var
  Client : TClientInfo;
  List : TList;
  Loop : Integer;
  stTemp : String;
begin
  Table1.Next;
  Table1.Edit;
  Table1.Fields.Fields[1].Text := Strings.Strings[1];       ///////////////////////
  Table1.Fields.Fields[2].Text := Strings.Strings[2];     ///////////////////////
  Table1.Fields.Fields[3].Text := Strings.Strings[3];    ///////////////////////
  Table1.Post;
  stTemp:= StringReplace(Strings.Text, #13, ';', [rfReplaceAll]);

  List:= IdTCPServer1.Threads.LockList;
   Try
    For Loop:= 0 to List.Count-1 do Begin
      TIdPeerThread(List.Items[Loop]).Connection.WriteLn(stTemp);
    End;
  Finally
    IdTCPServer1.Threads.UnlockList;
  End;

end;



첨부그림처럼 에러가 뜨는데 어디가 문제가 되는건지 잘 모르겠습니다...


///////////////////////// 부분이 문제인거 같은데... 서버에 있는 sql 디비의 데이터 타입을 Text로 했는데

아마 제 생각에 Text가 아닌 다른 형식으로 지정해야할거 같은데... 멀로 바꿔야할지 잘 모르겟습니다.

지적바랍니다.