I'd like to know what the right set of flags would be to make the
following code go as fast as possible. The only real constraint
that I have is that I must use a TIBOTable, although I would like to
hear what alternatives could be made to run even faster.

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
startTime: TDateTime;
s: string;
begin
IBODatabase1.Open;
try IBOTable1.DeleteTable except end;
IBOTable1.FieldDefs.Add('S1', ftString, 20);
IBOTable1.FieldDefs.Add('T1', ftDateTime);
IBOTable1.CreateTable;
IBOTable1.Open;
startTime:=Now;
for i:=0 to 43000 do
IBOTable1.InsertRecord([IntToStr(i), Now]);
Beep;
DateTimeToString(s, 'h:m:s', Now-startTime);
ShowMessage(s)
end;

Thanks,
Kevin Donn