wiederholungen zusammenfassen?

[mkinzler]

procedure TForm1.Eintragen(Neue5, Neue6, Neue7, Neue8: integer);