Effektiver machen

[FabianIBerlin]

hi, ich habe bei meinem Schulprojekt in einem Thread eine aktualisierung von mehrern Shapes und labels vrgenommen.
Jetz sind das aber ellen von Quelltext für die Selbe Sache und ich wollt fragen ob mir jemand sagen kann wie ich das mit ner schelife oder so schlanker machen könnte

(hier ein auschnit der aktualisiereung)

Delphi-Quellcode:

//Nonnendamm Visualisierung
  LeitrechnerForm.NdBetriebL.Caption := KreuzungInfos[1,5];
  LeitrechnerForm.NdStatusL.Caption := KreuzungInfos[1,6];

 //Nonnendamm Hauptstraße
 if KreuzungInfos[1,3] = 'off' then
    begin
      LeitrechnerForm.HsNdRShape.Brush.Color := clBtnFace;
      LeitrechnerForm.HsNdGrShape.Brush.Color := clBtnFace;
      LeitrechnerForm.HsNdGShape.Brush.Color := clBtnFace;
    end;
  if KreuzungInfos[1,3] = 'red' then
    LeitrechnerForm.HsNdRShape.Brush.Color := clRed;
  if KreuzungInfos[1,3] = 'yel' then
    LeitrechnerForm.HsNdGShape.Brush.Color := clYellow;
  if KreuzungInfos[1,3] = 'gre' then
    LeitrechnerForm.HsNdGrShape.Brush.Color := clGreen;
  if KreuzungInfos[1,3] = 'rye' then
    begin
      LeitrechnerForm.HsNdRShape.Brush.Color := clred;
      LeitrechnerForm.HsNdGrShape.Brush.Color := clYellow;
    end;

  //Nonnendamm Nebenstrassse
  if KreuzungInfos[1,4] = 'off' then
    begin
      LeitrechnerForm.NsNdRShape.Brush.Color := clBtnFace;
      LeitrechnerForm.NsNdGrShape.Brush.Color := clBtnFace;
      LeitrechnerForm.NsNdGShape.Brush.Color := clBtnFace;
    end;
  if KreuzungInfos[1,4] = 'red' then
    LeitrechnerForm.NsNdRShape.Brush.Color := clred;
  if KreuzungInfos[1,4] = 'yel' then
    LeitrechnerForm.NsNdGShape.Brush.Color := clYellow;
  if KreuzungInfos[1,4] = 'gre' then
    LeitrechnerForm.NsNdGrShape.Brush.Color := clGreen;
  if KreuzungInfos[1,4] = 'rye' then
    begin
      LeitrechnerForm.NsNdRShape.Brush.Color := clred;
      LeitrechnerForm.NsNdGrShape.Brush.Color := clYellow;
    end;

//Gartenfelder Visualisierung
  LeitrechnerForm.GFBetriebL.Caption := KreuzungInfos[2,5];
  LeitrechnerForm.GFStatusL.Caption := KreuzungInfos[2,6];

  //Gartenfelder Hauptstraße
  if KreuzungInfos[2,3] = 'off' then
    begin
      LeitrechnerForm.HsGfRShape.Brush.Color := clBtnFace;
      LeitrechnerForm.HsGfGrShape.Brush.Color := clBtnFace;
      LeitrechnerForm.HsGfGShape.Brush.Color := clBtnFace;
    end;
  if KreuzungInfos[2,3] = 'red' then
    LeitrechnerForm.HsGfRShape.Brush.Color := clRed;
  if KreuzungInfos[2,3] = 'yel' then
    LeitrechnerForm.HsGfGShape.Brush.Color := clYellow;
  if KreuzungInfos[2,3] = 'gre' then
    LeitrechnerForm.HsGfGrShape.Brush.Color := clGreen;
  if KreuzungInfos[2,3] = 'rye' then
    begin
      LeitrechnerForm.HsGfRShape.Brush.Color := clred;
      LeitrechnerForm.HsGfGrShape.Brush.Color := clYellow;
    end;

  //Gartenfelder Nebenstrassse
  if KreuzungInfos[2,4] = 'off' then
    begin
      LeitrechnerForm.NsGfRShape.Brush.Color := clBtnFace;
      LeitrechnerForm.NsGfGrShape.Brush.Color := clBtnFace;
      LeitrechnerForm.NsGfGShape.Brush.Color := clBtnFace;
    end;
  if KreuzungInfos[2,4] = 'red' then
    LeitrechnerForm.NsGfRShape.Brush.Color := clred;
  if KreuzungInfos[2,4] = 'yel' then
    LeitrechnerForm.NsGfGShape.Brush.Color := clYellow;
  if KreuzungInfos[2,4] = 'gre' then
    LeitrechnerForm.NsGfGrShape.Brush.Color := clGreen;
  if KreuzungInfos[2,4] = 'rye' then
    begin
      LeitrechnerForm.NsGfRShape.Brush.Color := clred;
      LeitrechnerForm.NsGfGrShape.Brush.Color := clYellow;
    end;

(so geht das noch 4 mal)