72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:

{ ... }
begin

  k:= RichEdit1.GetTextLen;
  richedit1.Lines.LoadFromFile('c:\abcde.abc');


  for I := 0 to RichEdit1.Lines.Count
        do
          begin
            if RichEdit1.Lines[i] = DateToStr(Now)
              then
                begin
                  Flag := False;              //hier überspringt er und geht gleich in die folgende if-anweisung
                  if RichEdit1.Lines[k] <> '' //kurze frage funzt das mit dem <> das es als "nicht leer" gilt die zeile?
                    then
                      begin
                        RichEdit1.Text  :=    RichEdit1.Text + #13#10;
                      end;
                  RichEdit1.SelStart:=  RichEdit1.GetTextLen;
                  Exit;
                end
              else
               Flag    := True;
          end;
end;