Из письма.

Дмитрий, доброго времени,

Есть таблица с материалами, в ней ключ к таблице с вендорами (прил 1).
Есть поле МЕМО. при нажатии записи вендоров в таблице, скрипт хватает его ид и заносит данные в поле МЕМО.
Загвоздка в том, что материалов может быть несколько и я не могу найти способ перечислить их в цикле, один за другим.

В приложенной вами проекте нет файла forms.xml, поэтому его никак не открыть.

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

Для этого вам необходимо выполнять SQL запро с помощью функции SQLQuery.

добавьте в данную процедуру переменную Results

procedure form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
var
    Results: TDataSet;
begin
...

затем вместо этого участка,

            for rows :=1 to i do
            begin
                Form1.XML.Lines.Add('          <product>');
                Form1.XML.Lines.Add('            <ndsAmount>0</ndsAmount>');
                Form1.XML.Lines.Add('            <priceWithTax>'+ IntToStr(m) +'</priceWithTax>');
                m:=m+1;

            end;

сделайте так

    SQLQuery('SELECT g17 FROM material WHERE id_vendor='+form1.tablegrid1.sqlValue, Results);

    while not Results.Eof do
    begin
        Form1.XML.Lines.Add('          <product>');
        Form1.XML.Lines.Add('            <ndsAmount>0</ndsAmount>');
        Form1.XML.Lines.Add('            <priceWithTax>'+ Results.FieldByName('g17').asString +'</priceWithTax>');
        Form1.XML.Lines.Add('          </product>');
        Results.Next;
    end;

    Form1.XML.Lines.Add('        </products>');