FillChar mit dynamischen Char Array

[Popov]

Ich hab gerade einen Knoten im Kopf. Wieso klappt das eine und das andere nicht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: array[0..9] of Char;
begin
  FillChar(s, SizeOf(s), Ord('A'));
  ShowMessage(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  s: array of Char;
begin
  SetLength(s, 10);
  FillChar(s, SizeOf(s), Ord('A')); //auch nicht mit dem Wert 10
  ShowMessage(String(s));
end;