Letztes TabSheet(PageControl) bleibt beim löschen stehen !

[Teclis]

Moinsen....
ich habe folgendes Problem: Ich habe ein PageControl auf dem ich zur Laufzeit TTabsheets mit jeweils einem Memo erzeuge. Nun will ich alle löschen und bis auf das letzte werden auch alle gelöscht ! Aber warum das letzte nicht ?

Mit dieser Schleife habe ich es probiert :

Delphi-Quellcode:

for i:=0 to PageControl1.PageCount do begin
 NewMemo[i].Free;
 Pagecontrol1.Pages[i].Free;
 end;

In freudiger Erwartung auf Kommentare...

Teclis

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]