var
   tab: TADOQuery;
begin
   tab := TADOQuery.Create(nil);
   tab.Connection := YourConnection;
   tab.SQL.Clear;
   tab.SQL.Add('create index on yourfields');
   ExecSQL;
end;