readln으로 읽는 것을 아신다고 하니까...
간단한 소스를 드리면 다음과 같습니다...

procedure TForm1.Button1Click(Sender: TObject);
Var
  F       : Textfile;
  TmpStr: String;
  sFile : String;
begin
  
   <화일오픈>
  
    if OpenDialog1.Execute then
        sFile := OpenDialog1.FileName
    else Exit;



    Screen.Cursor := crHourGlass;
    AssignFile(F, sFile);
    Reset(F);
    try
      try
        while Not EOF(F) do
         begin
            Readln(F, TmpStr);
          
        
          <여기부터>          
            with QR_Insert do
              begin
               Close;
               ParamByName('Param1').Asstring := Copy(TmpStr,1,10);
               //<중략>
               ParamByName('Param2').AsString  := Copy(TmpStr,20,2);
               ExecSQL;
              end;
           <여기까지>
         end;
      except
        raise;
      end;
    finally
      CloseFile(F);
   end;
end;

  QR_Insert 에서 SQL에 insert쿼리를 구성하세요...
   (insert into 테이블명 (필드1,필드2) Values (:Param1,:Param2)
   이런식으로 )
      
  그런데 텍스트는 구분자가 있거나 쭉 한라인이던가 하니까..
  DB하고는 안맞는 경우는 Copy문으로 필드자리수로 잘라서
저장하면 됩니다...

  이부분을 함수로 구성하시면 딱 좋겠네여...

  허접하지만  몇자 적습니다.. 즐코하세요