1:
2:
3:
4:
5:
6:
7:
8:

Zeit := Now;
for i := 0 to lbxDatum.Count-1
do begin
    if (Zeit >= StrToDate(lbxDatum.Items[i])) and (Zeit >= StrToTime(lbxZeit.Items[i]))
    then begin
          // Wecken
         end;
   end;					

1:
2:
3:
4:
5:

for i := 0 to lbxDatum.Count-1 do
  if Now >= (StrToDate(lbxDatum.Items[i]) + StrToTime(lbxZeit.Items[i])) then
  begin
    // Wecken
  end;					

1:
2:
3:
4:

if true
then begin
      tuwas;
      tuwas;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Prozeder(Parameter1: String; var Parameter2: Integer);
var i: Integer;
begin
  Parameter2 := 0;
  for i := 1 to Length(Parameter1) do
  begin
    case Parameter[i] of
      #13: inc(Parameter2);
      '-': dec(Parameter2);
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if true then
begin
  TuWas;
  TuWas;
end;
else
begin
  TuWas;
  TuWas;
end;