Listbox un stringgrid übertragen

[stefan86]

es sind ganz normale datentypen (string,integer ) so ungeffähr müsste das aussehen, funzt aber nicht:

var
R, C : integer;
S : string;
begin
if opendialog1.Execute then

listbox1.Items.LoadFromFile('data.dat');
listbox1.Items.Append(S);

for R:=0 to stringgrid1.RowCount do
begin
for C:=0 to stringgrid1.ColCount do
begin

stringgrid1.Cells[C,R]:=S;
end;
end;