Records & Arrays

type
  TUsers = record
    FirstName: string[15];
    LastName : string[25];
    Address  : string[35];
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S: TStrings;
  I: Integer;
  Users: array of TUsers;
begin
  S := TStringList.Create;
  S.LoadFromFile('users.dat');

  for I := 0 to S.Count - 1 do
  begin
    Parser1.StringToParse := S[I];
    Users[I].FirstName := Parser1.Strings[0];
  end;
end;

---------------
Det går galt når jeg skal hælde data over i "Users" array'et...altså ved :

Users[I].FirstName := Parser1.Strings[0];

Jeg får en Access Violation...Hvis jeg hælder data over i en ComboBox, virker det fint ?!?
Hvad mangler jeg lige der ?