Problem mit doppelt Verkettete Liste - Zeiger - Wie? ^^

[Klaus01]

Vorausgesetzt der Pointer "aktuell" zeigt auf das aktuelle Listenelement:

Delphi-Quellcode:

//Button Klick 
begin 
  //speichern                                      
  aktuell^.id:=StrToint(Edit1.Text);
  aktuell^.titel:=Edit2.Text;
  //if (wenn...) nächstes glied nicht leer/vorhanden/<> nil dann 
  if aktuell^.next <> nil then
    begin
      aktuell:=aktuell^.next;
      //mach Edit1.text := IntToStr(zeiger.id) + 1;               // Dieser Teil soll einfach nur die   
      //Felder "vorbereiten" sodass ich neue eingaben machen kann. 
      Edit1.text:=IntToStr(aktuell^.id);
      Edit2.Text:=aktuell^.titel;
    end  
  else   // Listenende
    begin
           Edit2.Text := ''          
           Edit1.text:=IntToStr(aktuell^.id +1);
    end;
end;

Grüße
Klaus