Chicos, ¿cómo escribo recuentos de lectura separados por comas en la base de datos en Delphi 7?

Gl_i_RowCount:integer;

//Gl_i_RowCount:=0 en el evento de visualización del formulario

//Agregar SaveRecByteToDB a memo?Change

función?SaveRecByteToDB():integer;

var S,Str_SQL:string; Str_Field1,Str_Field2,Str_Field3:string sl_Datalist:TStringlist;

begin Resultado:=0; S:=mmo1.Text; S:=stringreplce(S,'?'? ,''',[replaceall]);//eliminar espacios primero sl_Datalist.CommText=S; sl_Datalist.Count>Gl_i_RowCount)?y? (Longitud(sl_Datalist. strings[sl_Datalist.Count-1])=6)?luego comenzar

Gl_i_RowCount:=Gl_i_RowCount+1;

Str_Field1:=Copiar(S,1,2);

Str_Field2:=Copiar(S,3,2);

Str_Field3:=Copiar(S,5,2) ;

Str_SQL:='?Insertar?en?Table(Campo1,Campo2,Campo3)?values('+ ''''+Str _Field1+''''+','+ '''' +Str_Field2+''''+','+

''''+Str_Field3+''''+')';

if?ExecSQL(Str_SQL)<0?Entonces /// Escribes tu propia función SQL de envío, la más básica

begin Result:=-1; ShowMessage(Str_SQL);

end;?

Fin