Exportar StringGrid para TXT

procedure ExportToCsv(Grid : TStringGrid; const FileName:string);
const
  separador :string = ´;´;
var
  Col, Row : integer;
  linha : string;
  f : TextFile;
begin
  AssignFile(f, FileName);
  try
    Rewrite(f);
    for Row:=0 to Grid.RowCount-1 do
      begin
        linha := EmptyStr;
        for Col:=0 to Grid.ColCount-1 do
          begin
            linha := linha + Grid.Cells[Col, Row];
            if not(Col = Grid.ColCount-1) then
              linha := linha + separador;
          end;
        Writeln(f, Linha);
      end;
  finally
    CloseFile(f);
  end;
end;