импорт из Excel в stringgrid

[WRC fan 66]

Здравствуйте. Я хочу импортировать табличку из Excel в stringgrig. Вот мой код:

procedure TForm2.Button3Click(Sender: TObject);
var
f: textfile;
x, y: integer;
begin
assignfile(f,'C:\1.xls');
Append(f);
writeln(f, stringgrid1.colcount);
writeln(f, stringgrid1.rowcount);
for X := 0 to stringgrid1.colcount - 1 do
for y := 0 to stringgrid1.rowcount - 1 do
writeln(F, stringgrid1.cells[x, y]);
closefile(f);
end;

Но при нажатии на кнопку ничего не происходит. Что я делаю не так?

[_SERGEYX_]

Всё не так делаешь. Разве Excel это textfile?
Вот простейший код без наворотов:

uses ComObj;
//******

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var Excel: variant;  i, j: word;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open('e:\10_project\test2\Книга1.xls');
  for i := 1 to 5 do
  for j := 1 to 5 do
  StringGrid1.Cells[j, i] := Excel.Sheets[1].Cells[i, j].Text;
end;

[WRC fan 66]

Спасибо SERGEYX. Все заработало