Hi,
es gibt bestimmt eine bessere Lösung für die Zeilenaddressierung, aber dein Code funktioniert auch mehr als einmal, wenn du eine zusätzliche Zeile einfügst:
Delphi-Quellcode:
// Der Aufruf:
sg1.tag := 0;
for i := 0 to 5 do
begin
schreiben(sg1);
{showmessage(inttostr(i))};
end;
Grüße vom marabu