Как улучшить функцию

function TModel.insertRecord(values: array of string): boolean;
var i,count:integer;
parametrSQL:string;
par:array [0..15] of string;
begin
    // Проверка на пустоту
   if(values[0]='') then  begin result:=false; exit;end;
   if(values[1]='') then  begin result:=false; exit;end;
   //Проверка существования таких полей как id и имя
   if(existId(values[0])) then begin result:=false; exit;end;
   if(existName(values[1])) then  begin result:=false; exit;end;
   getAll;
   //Получаем количество полей
   count:=query.Fields.Count;
   //sql запрос для вставки, с параметрами
   parametrSQL:= createInsertSQL;
   //Добавляем имена параметров
   for I := 0 to count-1 do begin
    par[i]:=query.Fields[i].FullName;
   end;
   //Выполняем запрос
   with Self.query do begin
    Close;
    SQL.Clear;
    SQL.Add(parametrSQL);
    for I := 0 to Count - 1 do begin
      ParamByName(par[i]).Value:=values[i];
    end;
    ExecSQL;
    Self.getAll;
    result:=true;
  end;
end;

//генерирует параметризированый запрос sql
function TModel.createInsertSQL: string;
var count,I:integer;
sql,fields,params:string;
begin
 count:=self.query.Fields.Count;
for I := 0 to count-1 do begin
    fields:=fields+self.query.Fields[i].FullName+',';  //Поля таблицы
    params:=params+':'+self.query.Fields[i].FullName+','; //Параметры для вставки
end;
 Delete(fields,Length(fields),1); //Удаляем полесднюю запятую
 Delete(params,Length(params),1); //Удаляем полесднюю запятую
 //Готовый sql запрос
 sql:='insert into '+self.TABLE_NAME+' ('+ fields+')'+' values('+params+')';
 result:=sql;
end;

procedure TModel.SQL(query: string);
begin
  with Self.query do
  begin
    Close;
    SQL.Clear;
    SQL.Add(query);
    Open;
  end;
end;

procedure TModel.getAll;
begin
  Self.SQL('select * from ' + Self.TABLE_NAME);
end;

for I := 0 to count-1 do begin
    par[i]:=query.Fields[i].FullName;
   end;

Close;
    SQL.Clear;