[rastafarey]

Mira supongamos que tienes tienes lo siguiente.

Tu tabla con u campo entero, uno varchar, otro fecha con los siguientes nombres "Id", "Descripcion", "Fecha de ingreso"

A la tabla se llama "Informacion"

Y tu archivo tiene el formato
1,La casa es roja,10/12/2005
34,otra cadena mas,23/10/2004

En lo unico que tienes que tener cuidado es que al enviar la fecha la envies en formato gringo ya que asi es como la reconoce firebird ose 12/10/20005 y 10/23/2004 respectivamente pero si no me explique bien aqui tienes el codigo.

Código Delphi [-]
Procedure InsertarDatos(Const cArchivo: TFileName);
Const
  csSql = 'Insert Into "Informacion"("Id",  "Descripcion", "Fecha de ingreso") Values(%s, ''%s'', ''%s'');';
Var
  lExtructura, lArchivo: TStrings;
  lIbScript: TIB_Script;
  I: Integer;
Begin
  //Asi se encuentra en el formato de disco
  //"Id",  "Descripcion", "Fecha de ingreso"
  lArchivo := TStringList.Create; //Creo el archivo
  lExtructura := TStringList.Create; //acrea la estructura
  lIbScript := TIB_Script.Create(Nil); //Creao el escript que ejecutara las instrucciones
  //lIbScript.IB_Connection := el nombre del componente de base de datos que establece la conexion
  //Yo trabajo con ibo tu solos debes adatarlo al tipo d ecomponentes que uses
  Try
    lArchivo.LoadFromFile(cArchivo); //Leo le archivo
    For I := 0 To lArchivo.Count-1 Do Begin
      lExtructura.Clear; //Limpio la estructura
      ExtractStrings([','], [','], Pchar(lArchivo[i]), lExtructura); //Extraigo la la line actual del archivo par apoder trabajarla
      lIbScript.SQL.Add(Format(csSql, [lExtructura[0], lExtructura[1], FormatDateTime('mm/dd/yyyy', StrToDate(lExtructura[2]))])); //Ensamblo la linea de insercion
    End;
    lIbScript.Execute; //Envio los datos hacia la base de datos y listo
  Finally
    lExtructura.Free;
    lArchivo.Free;
    lIbScript.Free;
  End;
End;