Der Compiler meckert - nur wieso?

[LDericher]

Hallo DP!

Ich arbeite ja gerade an einer erweiterbaren Scriptsprache, und implementiere gerade meine Variablenfunktionalität... Da meckert mir der Compiler auf einmal was vor von wegen "Inkompatible Typen". Okay, klingt trivial, aber irgendwie komme ich nicht dahinter:

Delphi-Quellcode:

procedure CREATEVAR(Params:array of Pointer; var Vars, VarNames:array of PString);
var
  I:integer;
begin
I:=-1;
repeat
  inc(I);
until(VarNames[I]^=string(Params[0]))or(I>High(VarNames));
if(I>High(VarNames))then
  begin
  SetLength({*}VarNames, Length(VarNames)+1); //{*} = Hier kommt der Fehler
  SetLength({*}Vars, Length(Vars)+1);         //{*} = Hier auch!
  GetMem(VarNames[I], Length(string(Params[0])));
  VarNames[I]^:=string(Params[0]);
  end;
end;

Wer weiß, was Willi will? (Wollte die Alliteration beibehalten und hab meinen Compiler deshalb mal Willi genannt )

Grüße,
Euer LDer.