Коллеги, ваше мнение. Код такого вид имеет право на жизнь или это говнокод?

Кодом 302
Моим кодом 169
Запросом 59

Кодом 302
Моим кодом 169
Запросом 59

1650v2, sql, postgres
Запросом 173
Кодом 168
Моим кодом 111

i7-6400T, файловая
Запросом 127
Кодом 198
Моим кодом 114

(105) тьфу перепутал
1650v2, файловая
Запросом 173
Кодом 168
Моим кодом 111

i7-6400T, серверная, postgres
Запросом 127
Кодом 198
Моим кодом 114

Мой код 94

Запросом(39) 422
Кодом(39) 906

  УказательНаЗапись = ^ТипЗапись;

  ТипЗапись = record
    КолонкаСвязи: integer;
    КолонкаСвязиТаблицы2: integer;
  end;

implementation

{$R *.dfm}

function ФункцияСравнения(Объект1: Pointer; Объект2: Pointer): integer;
begin
  if УказательНаЗапись(Объект1)^.КолонкаСвязи > УказательНаЗапись(Объект2)^.КолонкаСвязи
  then
    Result := 1
  else if УказательНаЗапись(Объект1)^.КолонкаСвязи = УказательНаЗапись(Объект2)
    ^.КолонкаСвязи then
    Result := 0
  else
    Result := -1;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Таблица1, Таблица2: TList;
  СтрокаТаблицы, СтрокаТаблицы1, СтрокаТаблицы2: УказательНаЗапись;
  ИндексТаблицы1, ИндексТаблицы2, Счетчик, ВремяНачала, ВремяОкончания: integer;
begin
  Таблица1 := TList.Create;
  Таблица2 := TList.Create;
  for Счетчик := 1 to 100000 do
  begin
    GetMem(СтрокаТаблицы, SizeOf(ТипЗапись));
    ZeroMemory(СтрокаТаблицы, SizeOf(ТипЗапись));
    СтрокаТаблицы^.КолонкаСвязи := Random(50000);
    Таблица1.Add(СтрокаТаблицы);

    GetMem(СтрокаТаблицы, SizeOf(ТипЗапись));
    ZeroMemory(СтрокаТаблицы, SizeOf(ТипЗапись));
    СтрокаТаблицы^.КолонкаСвязи := Random(50000);
    Таблица2.Add(СтрокаТаблицы);
  end;

  ВремяНачала := GetTickCount;

  Таблица1.Sort(ФункцияСравнения);
  Таблица2.Sort(ФункцияСравнения);
  ИндексТаблицы1 := 0;
  ИндексТаблицы2 := 0;
  while True do
  begin
    СтрокаТаблицы1 := Таблица1.Items[ИндексТаблицы1];
    СтрокаТаблицы2 := Таблица2.Items[ИндексТаблицы2];
    if True then
      if СтрокаТаблицы1^.КолонкаСвязи >= СтрокаТаблицы2^.КолонкаСвязи then
      Begin
        ИндексТаблицы2 := ИндексТаблицы2 + 1;
        if СтрокаТаблицы1^.КолонкаСвязи = СтрокаТаблицы2^.КолонкаСвязи then
          СтрокаТаблицы1^.КолонкаСвязиТаблицы2 := СтрокаТаблицы2^.КолонкаСвязи;
      End
      else
        ИндексТаблицы1 := ИндексТаблицы1 + 1;
    if ИндексТаблицы1 >= Таблица1.Count then
      break;
    if ИндексТаблицы2 >= Таблица2.Count then
      break;
  end;
  ВремяОкончания := GetTickCount;

  Memo1.Lines.BeginUpdate;
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Время выполнения: ' + IntToStr(ВремяОкончания - ВремяНачала));
  Memo1.Lines.Add('КолонкаСвязи     КолонкаСвязиТаблицы2');
  for Счетчик := 1 to 100000 do
  begin
    СтрокаТаблицы := Таблица1.Items[Счетчик - 1];
    Memo1.Lines.Add(IntToStr(СтрокаТаблицы^.КолонкаСвязи)+'   '+IntToStr(СтрокаТаблицы^.КолонкаСвязиТаблицы2));
    FreeMem(СтрокаТаблицы);
    СтрокаТаблицы := Таблица2.Items[Счетчик - 1];
    FreeMem(СтрокаТаблицы);
  end;
  Memo1.Lines.EndUpdate;

end;