procedure TForm1.InsertRandom;
var sl: TStringList;
    i: Integer;
    stream: TStream;
    size: Integer;
    s: String;
begin
  sl:=TStringList.Create;
  Randomize;
  tbVorgang.Open;
  tbVorgang.Insert;
  size:=Random(10000);
  // write the blobfield
  stream:=tbVorgang.CreateBlobStream(tbVorgang.fieldByName('vBlob'),bmwrite);
  stream.Write(buffer,size);
  stream.Free;
  sl.add('Angebot '+IntToStr(Random(10000)));
  // write a memofield with full text index
  tbVorgang.fieldByName('txt_oben').assign(sl);
  tbVorgang.post;
  tbVorgang.Close;
  sl.Free;
end;

procedure TForm1.EditRandom;
var sl: TStringList;
    i: Integer;
    stream: TStream;
    buffer: array[1..10000] of char;
    size: Integer;
    s: String;
begin
  sl:=TStringList.Create;
  Randomize;
  tbVorgang.Open;
  tbVorgang.Last;
  tbVorgang.MoveBy(-Random(100));
  tbVorgang.Edit;
  // Read and write the blobfield
  stream:=tbVorgang.CreateBlobStream(tbVorgang.fieldByName('vBlob'),bmread);
  size:=stream.Read(buffer,10000);
  stream.Free;
  stream:=tbVorgang.CreateBlobStream(tbVorgang.fieldByName('vBlob'),bmwrite);
  stream.Write(buffer,size);
  stream.Free;
  s:='';
  for i:=1 to random(100)+50 do
  begin
    s:=s+buffer[i];
  end;
  // write a memofield with full text index
  sl.assign(tbVorgang.fieldByName('txt_oben'));
  sl.add(s);
  tbVorgang.fieldByName('txt_oben').assign(sl);
  tbVorgang.post;
  tbVorgang.Close;
  sl.Free;
end;

procedure TForm1.DoTest;
begin
  InsertRandom;
  EditRandom;
end;

procedure TForm1.bStartClick(Sender: TObject);
var i: Integer;
begin
  for i:=1 to StrToInt(edit1.text) do
  begin
    DoTest;
    caption:=IntToStr(i);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 10000 do
  begin
    buffer[i]:=chr(Random(40)+65);
    if random(100)>90 then buffer[i]:=' ';
  end;
end;