Hola
Esto es un ejemplo
Código Delphi
[-]
procedure leer_fichero(fitxer:string)
Var F1 : TextFile;
ch,fecha,hora,codigo:string;
begin
AssignFile(F1,fitxer );
Reset(F1) ;
while not Eof(F1) do
begin
ReadLN(F1, Ch);
codigo:=copy(ch1,1,10);
fecha:=copy(ch1,11,10);
hora:=copy(ch1,21,10);
end
CloseFile( F1 );
end;
Luego transformas el string fecha a datetime y la hora al que tenga tu tabla
y pones el codigo necesario para insertar en tu tabla dentro del bucle while not Eof(F1)
En fin Saludos