Probleme mit Array

[Tim Henford]

Hallo,

ich habe folgenden Code:

Delphi-Quellcode:

type ZwMerker = record
  ToDo    : String;
  Tabelle : String;
  wer     : String;
  ID      : String;
  Zeit    : TDateTime;
end;

var
  merk    : array of ZwMerker;
  LA      : integer = 0;

procedure test(todo, Tabelle, Daten, id: string);
begin
...
  LA:= LA+1;
  SetLength(merk,LA);
  merk[LA].ToDo:= ToDo;
  merk[LA].Tabelle:= Tabelle;
  merk[LA].ID:= ID;
  merk[LA].wer:= PCName;
  merk[LA].Zeit:= now;
....
end;

Aber bei merk[LA].ID:= ID; hängt er sich immer auf, woran liegt das?

Danke Tim