[Zeit] 30min aufzählen

[BullsEye]

Ich habs mal so gemacht:

Delphi-Quellcode:

      IF chkbAutoTime.Checked THEN BEGIN
        zeit := StrToTime(edtZeit.Text);
        zeit := IncMinute(zeit, 31);
        edtZeit.Text := TimeToStr(zeit);
      END ELSE BEGIN
        MrVariable:= 3;  // ist ne Integervariable die ich zum vergleichen des Status benötigt
      END;