1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.CreateAnMap;
var MTime, HTime : String;
    Anzring : Array [1..7] of Integer;
    i, j, Gesdeltas, Restarea : Integer;
begin
  AnMap.LoadFromFile(path+'\model.bmp');
//Minuten
  //für jeden Ring (a)berehcnen, wie viele Deltas
    //Zeit der nächsten Minute in Strings extrahieren
  MTime := FormatDateTime ('dd.mm.yyyy / mm:hh', now){[14]+
           FormatDateTime ('dd.mm.yyyy / mm:hh', now)[15]};
  HTime := FormatDateTime ('dd.mm.yyyy / mm:hh', now)[17]+
           FormatDateTime ('dd.mm.yyyy / mm:hh', now)[18];
  //andere Rechnungen
  //Gesdeltas := Trunc((StrToInt(MTime)+1)/5);
  Label10.Caption := MTime;
  //Restarea := StrToInt (MTime) mod 5;

  //               (b)mit entsprechender Farbe füllen
   { for j := 0 to Gesdeltas - 1 do begin  // -1,weil wir bei 0 anfangen!!
      for i := 1 to 5 do begin
        AnMap.Canvas.Brush.Color:= CFarbe[i];
        AnMap.Canvas.FloodFill(Delta[j][i].X,Delta[j][i].Y,ClWhite,FsSurface);
      end;
    end;   }

  AnMap.SaveToFile(path+'\AnMap.bmp');
end;					

1:

MTime := FormatDateTime ('dd.mm.yyyy / nn:hh', now)					

1:

MTime := FormatDateTime ('dd.mm.yyyy / hh:nn', now);