[delphi-br] Verificar espaço vazio no texto importado

[itasouza]

Amigos da lista...

Estou aqui mais uma vez com o mesmo problema já alterei o código, 
varias vezes já fiz muitas pesquisar para tentar entender e fazer 
funcionar esta importação de arquivo, alguns aqui na lista já me 
ajudou passando informações que foram útil mais estou realmente 
precisando de uma ajuda.

Tenho o seguinte código, que ao pega o nome :
DM.cdsImportacaonome.AsString 
O mesmo esta pegando o `' vazio que tem entre o nome passando como se 
fosse `;' o restante do nome vai para outro campo e ai gera erro.

Ficaria muito grato se alguém que faz fez este tipo de função pudesse 
ajuda!!

procedure TfrmImportacao.btnImportaClick(Sender: TObject);
var
  fArq: TextFile;      //Variável do Tipo Arquivo de Texto
  Caminho: string;     //Variável que armazenará o caminho
  Linha: string;       //Variável que vai armazenar cada linha
  mTexto: TStringList; //Utilizada para contar as linhas a importar
  i: integer;          //variável utilizada no contador de linhas 
Importadas
  sl_linha:TStringList;
begin
  Caminho := editArquivo.Text; //Variavel vai receber os dados do edit
  AssignFile(fArq, Caminho);
  ReSet(fArq);
  mTexto := TStringList.Create;
  sl_linha:=TStringList.create;
  sl_linha.Delimiter:=';';
  try
    mTexto.LoadFromFile(Caminho);
    ProgressBar1.Max := mTexto.Count - 1;
    i := 0;
  finally
    mTexto.Free;
  end;
  while not Eof(fArq) do  //Enquanto não chegar ao fim do arquivo
  begin
    Application.ProcessMessages;
    Readln(farq, linha); //Lê a linha e posiciona o cursor na próxima
    sl_linha.DelimitedText := linha;
    frmImportacao.Caption := 'Lendo Linha: ' + IntToStr(i) + ' de: ' 
+ IntToStr(ProgressBar1.Max);
      DM.cdsImportacao.Open;  //Abre o CDS
      //
    if DM.cdsImportacao.IsEmpty then //Se Não existir o registro
       DM.cdsImportacao.Append //Insira os dados da linha atual
    else //Senão, se o registro já existir
       DM.cdsImportacao.Append; // mesmo ezistindo ele inseri
       //Aqui os campos recebem as linhas lidas
       DM.cdsImportacaocod_integracao.AsString :=sl_linha[0];
       //DM.cdsImportacaonome.AsString           :=sl_linha[1];
       DM.cdsImportacaocontato.AsString        :=sl_linha[2];
       DM.cdsImportacaoddi.AsString            :=sl_linha[3];
       DM.cdsImportacaoddd.AsString            :=sl_linha[4];
       DM.cdsImportacaofone.AsString           :=sl_linha[5];
       DM.cdsImportacaoddd_2.AsString          :=sl_linha[6];
       DM.cdsImportacaofone_2.AsString         :=sl_linha[7];
       DM.cdsImportacaoddd_3.AsString          :=sl_linha[8];
       DM.cdsImportacaofone_3.AsString         :=sl_linha[9];
       DM.cdsImportacao.Post; //Salve o registro em memória
       DM.cdsImportacao.ApplyUpdates(0); //Aplica as atualizações em 
memória no banco
       DM.cdsImportacao.Close;  //Fecha o CDS     }
       Inc(i);
       ProgressBar1.Position := ProgressBar1.Position + 1;
  end;
       MessageBeep(65);
       ShowMessage('Processo Concluído Com êxito!!!');
 end;