Сменный путь для сохранения StringGrid в файл

[designer999]

Здравствуйте
Вот использую для сохранения и открытия файла в StringGrid такой код:

procedure SaveGrid(Grid:TStringGrid;FileName:string);
var
f: textfile;
x, y: integer;
begin
assignfile(f,Filename);
rewrite(f);
writeln(f, grid.colcount); // запись количества колонок
writeln(f, grid.rowcount); // запись количества строк
for X := 0 to grid.colcount - 1 do
for y := 0 to grid.rowcount - 1 do
writeln(F, grid.cells[x, y]);  // запись данных
closefile(f);
end;

procedure LoadGrid(Grid:TStringGrid;FileName:string);
var
f: textfile;
temp, x, y: integer;
tempstr: string;
begin
assignfile(f, Filename);
reset(f);
readln(f, temp); // считывание количества колонок
grid.colcount := temp;
readln(f, temp); // считывание количества строк
grid.rowcount := temp;
for X := 0 to grid.colcount - 1 do
for y := 0 to grid.rowcount - 1 do
begin
readln(F, tempstr);
grid.cells[x, y] := tempstr; // считывание данных
end;
closefile(f);
end;

Но на всех форумах написано что чтобы сохранить нужно использовать путь

procedure TForm1.Button1Click(Sender: TObject);
 begin
   SaveStringGrid(StringGrid1, 'c:\temp.txt');
 end;

 // Load StringGrid1 from 'c:\temp.txt': 

procedure TForm1.Button2Click(Sender: TObject);
 begin
   LoadStringGrid(StringGrid1, 'c:\temp.txt');
 end;

Как можно изменить этот код что бы путь можно было задать с помощью SaveDialog1 и OpenDialog1 ?

уже много методов перепробовал, не получается, помогите кто знает

[W0LF]

procedure TForm1.Button1Click(Sender: TObject);
 begin
   if SaveDialog1.Execute then
     SaveStringGrid(StringGrid1, SaveDialog1.FileName);
 end;

[designer999]

почему то ошибка, вот

[Пепел Феникса]

ну блин, у вас как функция называется?
так что найдите сами ошибку.

[designer999]

так тоже пробовал не работает

procedure TForm1.Button13Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveGrid(StringGrid1, SaveDialog1.FileName);
end;

[Пепел Феникса]

а функция вставленна в код выше использования?

[designer999]

ну да, а как же без неё

[Пепел Феникса]

тогда пишите ошибку

[designer999]

вот

[Пепел Феникса]

значит нет их выше места первого применения.
или у вас они во внешнем модуле?