Как в Lazarus (версия 1.8.4) сохранить файл с кодировкой UTF-8?

Есть код сохранения значений ячеек StringGrid в текстовом файле. Открываю текстовый файл, а кириллица (русские буквы) не распознаётся. В Delphi аналогичный код прекрасно работает, в Lazarus требуется поменять кодировку. Как поменять кодировку сохраняемого файла в Lazarus?

var f:TextFile;
i,j:Integer;
begin
if SaveDialog1.Execute then
begin
AssignFile(f,SaveDialog1.FileName+'.txt');
Rewrite(f);
With StringGrid1 do
begin
Writeln(f,ColCount);
Writeln(f,RowCount);
for i:=0 to StringGrid1.ColCount - 1 do for j:=0 to StringGrid1.RowCount - 1 do writeln(f,StringGrid1.Cells[i,j]);
end;
CloseFile(f);
end;
end;