uses Section에 csvData 추가하시고

procedure TForm1.Button1.Onclick(Sender : TObject);
var
      csv : TcsvData;
      i, j : Integer;
      strFVal : String;
begin
    try
        csv := TcsvData.Create('c:\xxx.csv', ','); //인스턴스를 생성합니다.
        for i := 0; i < csv.RecordCount do
        begin
             for j := 0 j < fieldCount do
             begin
                 strFVal := csv.FieldValue(i, j);
                 // 각 필드값 Access
             end;
             // 여기서 Db에서 한개의 완성된 Record Insert하시면 되겠네요....
        end;
    finally
        csv.free;
    end;
end;

그럼 즐플하세요...