Fórum Data em Branco?????? #45210

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  txt:TextFile;
  Linha: String;
begin
  Dialogo.Filter:=´Arquivo de Usuário|usuarios.txt´;
  Dialogo.Execute;
  AssignFile(Txt,Dialogo.FileName);
  Reset(Txt);
  While not EOF(Txt) do
  Begin
    ReadLn(txt,Linha);

    SQLConnection1.ExecuteDirect(´INSERT INTO USUARIOS(RE__USU, DEP_USU, PLA_USU, NOM_USU, SEX_USU, END_USU, BAI_USU, CID_USU, EST_USU, CEP_USU, DTN_USU, RG__USU, CPF_USU, TEL_USU, CEL_USU, MAE_USU, PAI_USU, CUN_USU, APA_USU, POS_USU, ESC_USU, DTE_USU) VALUES (´´´ +
    TRIM(COPY(Linha,001,12)) + ´´´,´´´ +
    TRIM(COPY(Linha,014,12)) + ´´´,´´´ +
    TRIM(COPY(Linha,027,02)) + ´´´,´´´ +
    TRIM(COPY(Linha,030,50)) + ´´´,´´´ +
    TRIM(COPY(Linha,081,01)) + ´´´,´´´ +
    TRIM(COPY(Linha,083,40)) + ´´´,´´´ +
    TRIM(COPY(Linha,124,25)) + ´´´,´´´ +
    TRIM(COPY(Linha,159,30)) + ´´´,´´´ +
    TRIM(COPY(Linha,190,02)) + ´´´,´´´ +
    TRIM(COPY(Linha,150,02)) + ´.´ + TRIM(COPY(Linha,152,03)) + ´-´ + TRIM(COPY(Linha,155,03)) + ´´´,´´´ +
    TRIM(COPY(Linha,193,10)) + ´´´,´´´ +
    TRIM(COPY(Linha,204,15)) + ´´´,´´´ +
    TRIM(COPY(Linha,220,03)) + ´.´ + TRIM(COPY(Linha,223,03)) + ´.´ + TRIM(COPY(Linha,226,03)) + ´-´ + TRIM(COPY(Linha,229,02)) + ´´´,´´´ +
    ´(´ + TRIM(COPY(Linha,232,02)) + ´) ´ + TRIM(COPY(Linha,234,10)) + ´´´,´´´ +
    ´(´ + TRIM(COPY(Linha,245,02)) + ´) ´ + TRIM(COPY(Linha,247,10)) + ´´´,´´´ +
    TRIM(COPY(Linha,258,30)) + ´´´,´´´ +
    TRIM(COPY(Linha,289,30)) + ´´´,´´´ +
    TRIM(COPY(Linha,320,22)) + ´´´,´´´ +
    TRIM(COPY(Linha,343,06)) + ´´´,´´´ +
    TRIM(COPY(Linha,350,10)) + ´´´,´´´ +
    TRIM(COPY(Linha,361,01)) + ´´´,´´´ +
    TRIM(COPY(Linha,363,10)) + ´´´)´);
  End;
  CloseFile(TXT);
end;