kan dette ikke også skrives om

Hvordan får jeg dette skrevet om

If Image1.Picture := (format('c:\haustrup\prik_fuld12.bmp'))then
DataModule1.TabelRekvisition.FieldByName
      ('1').AsString := '1'
    else
  DataModule1.TabelRekvisition.FieldByName
      ('1').AsString := '0'


  If Image2.Picture := (format('c:\haustrup\prik_fuld12.bmp'))then
DataModule1.TabelRekvisition.FieldByName
      ('2').AsString := '1'
    else
  DataModule1.TabelRekvisition.FieldByName
      ('2').AsString := '0'

så det ligner dette stykke kunst


for i := 1 to 43 do            // Indlæser alle de Orange 'pletter'
  begin
    aImage := TImage(FindComponent('Image' + IntToStr(i)));

    if aImage = nil then
      continue;
    aImage.Tag := StrToIntDef(DataModule1.TabelRekvisition.FieldByName(IntToStr(i)).AsString, 0);
    aImage.Picture.LoadFromFile(Format('c:\haustrup\prik_%s12.bmp', [FileName[aImage.Tag]]));
  end;