Wenn das nur einmal vorkommt, dann kommst du da wohl nicht herum.
Delphi-Quellcode:
a := 5;
b := 5;
c := 5;
d := 5;
Wenn du aber mehrmals auf die selben Variablen einen bestimmten Wert zuweisen wills, dann kannst du auch eine Prozedur dafür verwenden.
Delphi-Quellcode:
Procedure xyz(w: Integer);
Begin
a := w;
b := w;
c := w;
d := w;
End;
xyz(5);