fincomponent bei stringgrid

[bonanza]

Hi,

ich möchte gerne die FindComponent-komponente bei einem Stringgrid anwenden. Dabei möchte ich einen Wert aus einem Array in ein Stringgrid feld schreiben...

Das ist mein ansatz aber irgendwie mag er das nicht ^^:

Delphi-Quellcode:

for j := 0 to 9 do begin
if (getauschte[j] = true) then
TStringGrid(Form2.FindComponent('Stringgrid1.Cells[' + IntToStr(durchlauf) + ', ' + inttostr(j+1))) := IntToStr(liste[j]);
end;

"Durchlauf" gibt wie der name schon sagt den durchlauf an, da immer die veränderung dagestellt werden soll.
Im hauptprogramm wird die folglich immer um eins größer.


vielen danke schonmal im voraus
mfg
bonanza