[chivofbv]

X:String

readln(f,linea);
while i<Length(estructura) do
begin
x :=Trim(copy(linea,0,estructura[i].Longitud));
DM.SQLInsert.Params[i].AsString := x;
linea:=copy(linea,estructura[i].CDR_Longitud+2,length(linea));
inc(i);
end;

TKS