function KurlariCek(XMLDosyasi: TXML********;Kayitlar: TStringList):Boolean;
var
  iNode: IXMLNode;
  c, r: integer;
begin
  XMLDosyasi.FileName := '
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
XMLDosyasi.Active := True;
  r := 1;
  iNode := XMLDosyasi.********Element.ChildNodes.First;
 
 
 
 
  while iNode <> nil do
  begin
      c := 0;
      Kayitlar.Add(inttostr(r));
      inc(c);
      Kayitlar.Add(iNode.Attributes['Kod']);
      inc(c);
      Kayitlar.Add(iNode.ChildNodes.Nodes['Isim'].Text);
      inc(c);
      Kayitlar.Add(iNode.ChildNodes.Nodes['ForexBuying'].Text);
      inc(c);
      Kayitlar.Add( iNode.ChildNodes.Nodes['ForexSelling'].Text);
      inc(c);
      Kayitlar.Add(iNode.ChildNodes.Nodes['BanknoteBuying'].Text);
      inc(c);
      Kayitlar.Add(iNode.ChildNodes.Nodes['BanknoteSelling'].Text);
      inc(c);
      inc(r);
    iNode := iNode.NextSibling;
  end;
 
 
  XMLDosyasi.Active := False;
Result := True;
end;
 
 
procedure TForm1.btnKurlarClick(Sender: TObject);
var
  strListe: TStringList;
  Filtre, ListCount, Satir, i, j, k: Integer;
begin
  strListe := TStringList.Create;
  KurlariCek(XML********1, strListe);
 
 
  Filtre := 7; // Girdde listelemek üzere Column sayısını belirlemek
  ListCount := strListe.Count; // StringListimizin Toplam Satır Sayısı
  Satir := Trunc(ListCount / Filtre); // Toplam kaç satır olacağını hesapliyoruz
  StringGrid1.RowCount := Satir + 1; // String Gridimizin Kaç satır listeleyeceğini belirliyoruz
 
 
  j := 0;
  for k := 1 to Satir do // Satır Satıra ilerlemesi için for döngüyü kullaniyoruz
  begin
    for i := 1 to Filtre do // Column sırası için kullandığımız döngü buna göre  column column (-> | ->) ilerliyoruz
    begin
      StringGrid1.Cells[i, k] := strListe.Strings[j]; // StringGirilimiz sırasıyla dolduruyoruz (Column No > Satır No > [StirngListedeki Satır - sıfırdan başliyoruz])
      j := j + 1; // Bir sonraki Satıra geçmek için (j)yi bir arttırıyoruz
    end;
  end;
end;