var
  I: Integer;
begin
  with TStringList.Create do try 
    LoadFromFile('<FileName>');
    for I := 0 to Count - 1 do begin
      Table1.Append;
      Table1['<FieldName>'] := StrToDateTime(Strings[I]);
      Table1.Post;
    end;
  finally
    Free;
  end;
end;