Det må kunne gøres nemmer

Hej
hvordan kan jeg skrive denne kode nemmer og mere 'elegant/rigtig'

F.eks med
For X = 1 to 31


If DataModule1.TabelRekvisition.FieldByName
      ('1').AsString = '1' Then Image1.picture.LoadFromFile
      (Format('c:\haustrup\prik_fuld12.bmp', [FileName[Image1.Tag]]))
  Else
    Image1.picture.LoadFromFile(Format('c:\haustrup\prik_tom12.bmp',
    [FileName[Image1.Tag]]));

If DataModule1.TabelRekvisition.FieldByName
      ('2').AsString = '1' Then Image2.picture.LoadFromFile
      (Format('c:\haustrup\prik_fuld12.bmp', [FileName[Image2.Tag]]))
  Else
    Image2.picture.LoadFromFile(Format('c:\haustrup\prik_tom12.bmp',
    [FileName[Image2.Tag]]));

If DataModule1.TabelRekvisition.FieldByName
      ('3').AsString = '1' Then Image3.picture.LoadFromFile
      (Format('c:\haustrup\prik_fuld12.bmp', [FileName[Image3.Tag]]))
  Else
    Image3.picture.LoadFromFile(Format('c:\haustrup\prik_tom12.bmp',
    [FileName[Image3.Tag]]));

If DataModule1.TabelRekvisition.FieldByName
      ('4').AsString = '1' Then Image4.picture.LoadFromFile
      (Format('c:\haustrup\prik_fuld12.bmp', [FileName[Image4.Tag]]))
  Else
    Image4.picture.LoadFromFile(Format('c:\haustrup\prik_tom12.bmp',
    [FileName[Image4.Tag]]));