Problemas con lazarus

[walito]

Buenas, les cuento el inconveniente que estoy teniendo para ver si alguno le paso alguna vez.

Resulta que el siguiente codigo anda en delphi pero no en lazarus:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  array1: array of byte;
  txt: string;
begin
    SetLength(array1, 20);
    ZeroMemory(@array1[0], high(array1));

    txt := 'hola mundo';

    StrPLCopy(@array1[0], txt, High(array1));
end;

este ejemplo lo encontre en el foro y en delphi anda bien, ahora en lazarus me da la impresion que el SetLength no funciona ya que hace cualquier cosa, por empezar no me setea a la longitud que yo quiero y el ZeroMemory no me pone en #0 los valores.

Que puede ser? ya no se que mas buscar, en la pagina de la documentacion del freepascal sale que se usa asi pero ami no me anda.

Algun TIP por ahi?

Gracias