E2010 Incompatible types: ANSICHAR and CHAR

Eu utilizava essa função no delphi 7 para preencher uma string com uma qtde especifica de caracteres, porém no delphi 2009 ele exibe a mensagem acima.

A função com erro é a seguinte:

function Copies(Ch: Char; N: Byte): Shortstring;
begin
if N < 1 then
Result := ´´
else
begin
FillChar (Result[1], N, Ch);
Result[0] := Char(N);
end;
end;

A linha onde aparece o erro de compilação é:
Result[0] := Char(N);

Pelo que pude perceber, existe alguma mudança na forma de usar CHAR no delphi 2009.