Работа с Excel

[David3]

Прошу помощи, потому что в Делфи не очень разбираюсь .. но кое-что пробую делать ..
На этом форуме нашел код, который позволяет сохранить данные с StringGrid в Excel, с возможностью указания куда сохранить...
Но теперь хочу сделать, чтобы эти данные которые занеслися в Эксель, можно было импортировать обратно в SringGrid с помощью кнопки меню Open, открылось окошко файлов, в котором я найду этот Excel-файл и щелкнув на него данные занеслися в этот же StringGrid...

function TForm1.GetExcelSaveAs: String;
begin
Result:= SaveDialog1.FileName + '.xls';
end;

procedure TForm1.Save1Click(Sender: TObject);
var
ExcelApp, Sheet: variant;
Col, Row: Word;
begin
if SaveDialog1.Execute then
begin
ExcelApp:= CreateOleObject('Excel.Application');
try
ExcelApp.Visible:= False;
ExcelApp.Workbooks.Add;
Sheet:= ExcelApp.ActiveWorkBook.WorkSheets[1];
for Col:= 0 to StringGrid1.ColCount -1 do
for Row:= 0 to StringGrid1.RowCount -1 do
Sheet.Cells[Row + 1, Col +1]:= StringGrid1.Cells[Col, Row];
ExcelApp.ActiveWorkbook.SaveAs(GetExcelSaveAs);
finally
ExcelApp.Application.Quit;
ExcelApp:= Unassigned;
Sheet:= Unassigned;
end;
end;
ShowMessage('Сохранено!');
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[FaTaL]

И где Ваш вопрос? Делайте тоже самое, только в обратном порядке, вернее циклом пробегайтесь не по стринггриду, а по Экселю.

[David3]

Сообщение от FaTaL

И где Ваш вопрос? Делайте тоже самое, только в обратном порядке, вернее циклом пробегайтесь не по стринггриду, а по Экселю.

Вопрос в том, что я не знаю как это сделать, и прошу помощи. Кто может помочь и написать каким должен быть код с объяснением. На основе выше приведенного кода.