Výpis do MEMO? – Delphi – Fórum – Programujte.com

Potřebovala bych poradit, proč se mi nedaří vypsat nic do TŘETÍHO ŘÁDKU MEMO (tedy Lines[2]):

Mám nějaký program, který je tvořen z objektů - to je vlastně jedno, proceduru mám udělánu takto:

procedure TFrmHlavni.VypisAktualni;
var OsobaId: string;
begin
OsobaId:=TOsoba(Rodokmen.ZpristupniAktualni).ID;
if OsobaID[1]='M' then
begin
Memo2.Lines[0]:=TMuz(Rodokmen.ZpristupniAktualni).Jmeno;
Memo2.Lines[1]:=InttoStr(TMuz(Rodokmen.ZpristupniAktualni).RocnikNarozeni);
end;
if OsobaID[1]='Z' then
begin
Memo2.Lines[0]:=TZena(Rodokmen.ZpristupniAktualni).Jmeno;
Memo2.Lines[1]:=InttoStr(TZena(Rodokmen.ZpristupniAktualni).RocnikNarozeni);
Memo2.Lines[2]:=TZena(Rodokmen.ZpristupniAktualni).ProvdanePrijmeni;
end;
end;

Vím, že takhle to asi není moc efektivní a krásný, ale mělo by to fungovat. Dokonce to asi i funguje, ALE...
Problém mám se třetím řádkem v MEMO (konkrétně tady - Memo2.Lines[2]:=TZena(Rodokmen.ZpristupniAktualni).ProvdanePrijmeni;)

Vypíše se mi pouze JMÉNO a ROČNÍK NAROZENÍ a PROVDANÉ PŘÍJMENÍ nikoliv! Ovšem problém není v tom příjmení, protože když jsem řádky ROČNÍK A PŘÍJMENÍ prohodila, tak mi to vypíše PŘÍJMENÍ, ale ROČNÍK nikoliv!!!

Ale žádnou chybu to nahlásí, normálně to proběhne, jen se mi do třetího řádku (Lines[2]) nikdy nic nepodaří vypsat... Nejspíš bude chyba v tom, že MEMO má někde nastavenu max. délku na dva řádky nebo nevím...

Nevíte, co s tím? Děkuji

na třetí řádek nelze nic zapsat, protže neexistuje, musíš ten řádek přidat memo1.lines.Add('text');