Importar Txt Tamanho Fixo para MySQL

Ola Pessoal, primeiramente peço desculpas caso tenha postado no local errado, pois sou novo no forum

estou com o seguinte problema, estou tentando importar um txt com tamanho fixo para o mysql e nao estou conseguindo.

tentei varios codigos aqui do forum e de outros sites e nao consegui.

com o codigo que estou usando agora ele nao da erro para compilar, porem quando clico no botao a aplicacao trava e nada e inserido no banco.

segue codigo:

procedure TFRM_PRINCIPAL.BT_PROCESSA_ARQUIVOClick(Sender: TObject);

var

 txt: TextFile;

 arq: String;

 codigo,descricao,dpto,oferta,preco : String;

begin

 AssignFile(txt,ED_URL_ARQUIVO.Text);

 Reset(txt);

 while not eoln(txt) do

begin{2}

 ReadLn(txt,arq);

 codigo := Copy(arq,3,9);

 descricao := Copy(arq,19,68);

 dpto := Copy(arq,1,2);

 preco := Copy(arq,10,15);

 with DM_PRINCIPAL.SQLQ_IMPORTA_MGV do

 begin

 DM_PRINCIPAL.SQLQ_IMPORTA_MGV.SQL.Clear;

 DM_PRINCIPAL.SQLQ_IMPORTA_MGV.SQL.Add('insert into produtos(prod_codigo,prod_descricao,prod_dpto,prod_preco) values ('+#34+codigo+#34+','+#34+descricao+#34+','+#34+dpto+#34+','+#34+preco+#34+')');

 DM_PRINCIPAL.SQLQ_IMPORTA_MGV.ExecSQL;

 end;

 end;{2}

 CloseFile(txt);

 ShowMessage('Arquivo Importado com sucesso!');

end;

Agradeço desde ja pela ajuda