procedure TForm1.XXX(d:TDataset);
var L,L1:TStringList;
  i:integer;procedure ParseOneRecord(s:string);
var i:integer;
  L:TStringList;
begin
  L:=TStringList.Create;
  try
    L.StrictDelimiter:=true;
    L.Delimiter:='|';
    L.DelimitedText:=s;
    d.insert;
    d.FieldByname('xxx').asString:=l[0];
    d.FieldByname('yyy').asString:=l[1];
    d.FieldByname('zzz').asString:=l[2];
...
    d.post;
  finally
    l.free;
  end;
end;
 
begin
  L:=TStringList.Create;
  try
    l.loadFromFile(Filename);
    for i:=0 to L.Count-1 do
      parseOneRecord(l[i]);
  finally
    l.free;
  end;
end;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls; DB;

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private

    { Private declarations }
  public


    procedure XXX(d:TDataset);
    { Public declarations }

  end;

var
  Form1: Tform1;

implementation