Поиск в записи (во встроенном асме Delphi)

[EThread]

Есть тип запись. Мне нужно составить программу, выдающую информацию следующего вида:
- список всей мебели хххх года выпуска,
- общая стоимость мебели, указанной фирмы-изготовителя;

Затрудняюсь это реализовать на асме..

Вот мои труды:

type
  Tzap = record
    _firma,
    _name,
    _type,
    _year,
    _nameC: array [0..9] of string;
  end;


var
  zap: Tzap;
  j, n: byte;
  s1, s2: string;  

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 0]:= 'Фирма-изготовитель';
  StringGrid1.Cells[1, 0]:= 'Наименование';
  StringGrid1.Cells[2, 0]:= 'Тип мебели';
  StringGrid1.Cells[3, 0]:= 'Год выпуска';
  StringGrid1.Cells[4, 0]:= 'Цена';
end;

procedure search; Assembler;
  asm
      cld               //сканируем в прямом направлении
                mov   cx, 10               //10 строк 
                lea   bx, s1                 // начиная с 1го элемента s1
                lea   di, zap                // и с 1го элемента zap
         
             
              repe   cmpsw             ;сравниваем их.


  end;


procedure TForm1.Button1Click(Sender: TObject);
 var s1, s2: string;
 begin
   Memo1.Clear;
   Memo2.Clear;
   s1:= Edit1.Text;
   for j:=1 to 10 do
                begin
                 zap._firma[j]:=StringGrid1.Cells[0,j];
                 zap._name[j]:=StringGrid1.Cells[1,j];
                 zap._type[j]:=StringGrid1.Cells[2,j];
                 zap._type[j]:=StringGrid1.Cells[3,j];
                 zap._nameC[j]:=StringGrid1.Cells[4,j];
                end;
    
  //как-то нужно вывести списки записей ещё...

В общем не соображу, как сравнить с введённым словом все записи определённого поля, а потом вывести их... Если кто может, помогите пожалста.

[Stilet]

НАсчет сравнения строк то, насколько я помню так:

var s1,s2:string;
begin
s1:='123456';
s2:='123456';
asm
 mov ecx,6
 mov esi, [s1];
 mov edi, [s2];
 repe cmpsb
end;
end;

Правда я забыл какой флаг нужно проверять по окончании...