텍스트파일을 DB에 넣는 방법은 몇 가지가 되겠지만 두 가지 방법만
제시하겠습니다.

첫 째는 글을 올리신 것처럼 콤마(,)를 기준으로 문장을 짤라서 해당 필드에
넣는 방법이고, 둘 째는 특정위치로부터 몇 바이트를 어느 필드에 넣는 식으로
지정해 주면 되겠지요.  두번 째 방식은 반드시 문장이 규칙적이어야 합니다.

PETIPRIN 님의 경우에는 첫 번째 방법을 쓰셔야 할 것 같군요.

예를들자면,
Table1 : 테이블명
Field1, Field2, Field3 : 필드명

procedure TForm1.Button1Click(Sender: TObject);
var
  k: Integer;
  tmp: String;
  F: TextFile;
begin
  AssignFile(F, 'C:\Temp\AA.TXT');
  Reset(F);
  while Not Eof(F) do
  begin
    Readln(F, tmp);
    k := 0;
    while tmp <> '' do
    begin
      p := Pos(',', tmp);     // 위의 변수선언부에 p: Integer 추가
      if p > 0 then
      begin
        s := Copy(tmp, 1, p-1);  // 위의 변수선언부에 s: String 추가
        tmp := Copy(tmp, p+1, Length(tmp)-p);
      end else
      begin
        s := tmp;
        tmp := '';
      end;
      Inc(k);
      Table1.FieldByName('Field'+IntToStr(k)).AsString := s;
    end;
    Table1.UpdateRecord;
  end;
  Table1.Post;
end;

내용 수정
  AssignFile ....
  Reset...
  while Not Eof(f) do
  begin
    Table1.Append;  // 혹은  Table1.Insert;
    Readlin....
      :

  // Table1.Append 문장 삽입

  온-라인에서 입력하는라 문장이 엉망이군요.
  잘 참조하셔서 테스트해 보시기 바랍니다.