Arquivo texto para DB...

Ola Tenho um arquivo texto com a extenção SDF O arquivo e + ou - Assim 15030200800000000000000001CAPA PARA CELULAR 000000001000200000000000000000002550000000000000000000000000000000003000000000000300000000000000000000000000003000000000000300000000000000000000000000000000000000000000003000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 sendo da posição um campo. Ex.: As 6 Primeiras Posição e a Data (150302) As 3 Proximas Posição e de Controle (008) As 17 Proximas Posição e de Cod Merca (00000000000000001) As 44 Proximas Posição e de Descrição do Produto (CAPA PARA CELULAR ) e assim por diante Como Converter esses dados para DB Tem como Valeu a Força

  TRegistroSDF = Record
  Data: String;
    Controle: String;
    Codigo: String;
    Descricao: String;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var Arquivo: TStringList;
nI, Linhas: Integer;
    Registro: TRegistroSDF;
begin
Arquivo := TStringList.Create;
  Arquivo.LoadFromFile(´C:\ARQUIVO.SDF´); // Carrega o arquivo
Linhas:= Arquivo.Count;

  For nI := 0 to Linhas-1 do
  begin
Registro.Data := Copy(Arquivo.Strings[nI],1,6);
    Registro.Controle   := Copy(Arquivo.Strings[nI],7,3);
    Registro.Codigo:= Copy(Arquivo.Strings[nI],10,17);
    Registro.Descricao:= Copy(Arquivo.Strings[nI],27,44);
  end;

  Arquivo.Free;
end;