cargar plano txt en tabla sql server desde delphi 6

[HELBERT GARCIA]

Neftali, gracias por responder
estoy utilizando este codigo delphi en el cual para insertar los campos a la tabla lo hagopor un procedimiento almacenado llamado Splanoswinsiob

Código Delphi [-]
 
procedure TFrmplanoWinsiob.BitBtn1Click(Sender: TObject);
var
F: TextFile;
cadena:string;
i : Integer;
begin
NomPlanoToImp := Trim(edtArchivo.Text);
if Archivo <> nil then
  Begin
    Archivo.Clear;
    Archivo.LoadFromFile(NomPlanoToImp);
    reArchivo.Lines.LoadFromFile(NomPlanoToImp);
  End;
  if reArchivo.Lines.Count = 0 then
  Begin
    ShowMessage('No a definido el archivo a LEER');
    Exit;
  End;
  if MessageDlg('Seguro de LEER datos ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
   begin
     AssignFile(F,edtArchivo.Text);  
   end;
  try
    for i:=1 to Archivo.Count-2 do
    Begin
      Cadena := Archivo.Strings[i];
   with  Splanoswinsiob do
     begin
      params[0].Asstring :=Copy(Cadena,1,9);
      params[1].Asstring :=Copy(Cadena,10,13);
      params[2].Asstring :=Copy(Cadena,14,21);
      params[3].Asstring:=Copy(Cadena,22,36);
      params[4].Asstring:=Copy(Cadena,37,51);
      params[5].Asstring:=Copy(Cadena,52,53);
      params[6].Asstring:=Copy(Cadena,54,55);
      params[7].Asstring:=Copy(Cadena,56,57);
      params[8].Asstring:=Copy(Cadena,58,72);
      params[9].Asstring :=Copy(Cadena,73,112);
      params[10].Asstring :=Copy(Cadena,113,137);
      params[11].Asstring :=Copy(Cadena,138,140);
      params[12].Asstring :=Copy(Cadena,141,144);
      params[13].Asstring :=Copy(Cadena,145,152);
      params[14].Asstring :=Copy(Cadena,153,162);
      params[15].Asstring := Copy(Cadena,163,166);
      params[16].Asstring :=Copy(Cadena,167,206);
      params[17].Asstring :=Copy(Cadena,207,221);
      params[18].Asstring :=Copy(Cadena,222,246);
      params[19].Asstring :=Copy(Cadena,247,249);
      params[20].Asstring :=Copy(Cadena,250,250);
      params[21].Asstring :=Copy(Cadena,251,270);
      params[22].Asstring :=Copy(Cadena,271,311);
      params[23].Asstring :=Copy(Cadena,312,327);
      params[24].Asstring :=Copy(Cadena,328,370);
      ExecProc;
      end;
          end;
          except
      raise;
  end;