Slow TListView

Hello, wise All!

I am really upset of very slow uploading list items to TListView.
I use Delphi5, OS is WinNT 4 with SP5.
This is portion of code that dislocates me:

  lvNotesBrowser.Items.BeginUpdate;
  try
    lvNotesBrowser.Items.Clear;
    with DM.Notes do begin
      First;
      while EOF=False do begin
          Cur:=lvNotesBrowser.Items.Add;
          Cur.Caption:=FieldByName('NOT_NUMB').asString;
          Cur.SubItems.Add(FieldByName('FAC_NUMB').asString);
          Cur.SubItems.Add(FieldByName('CLI_NAME').asString);
          Cur.SubItems.Add(FieldByName('INVOICE_NUMBER').asString);
          New(d);
          d^.NoteID:=FieldByName('NOTE_ID').asInteger;
          d^.AccountStatus:=FieldByName('ACCOUNT_STATUS').asInteger;
          d^.Owner:=Cur;
          Cur.Data:=d;
        end;
        Next;
      end;
    end;
    lvNotesBrowser.Items.EndUpdate;
  except on E:Exception do begin
      lvNotesBrowser.Items.EndUpdate;
      Application.MessageBox(PChar(E.ClassName+':
'+E.Message),'Error',MB_OK);
    end;
  end;

If I've got a dataset with 10000 rows this script will run for a 30-40
seconds on
my P!!!-550. That's evil! Windows Explorer run much faster in a such
situations.
Is it because of VCL inside calcualtions?
Thank you for any assistance.

Good luck!