procedure TFMain.Datei_durchsuchen;
var
  zaehlen, top, j, i, found:integer;
  Shandling, Suser_time, Scode_letter, Sreturn_code: string;
begin

  found := 0;
  zaehlen := 1;
  top := 60;

      for I := 0 to my_file.Count - 1 do
        begin
          // Jede Zeile nach dem Benutzernamen durchsuchen
          found := Pos('java.lang.String userName="'+EUsername.Text+'",', my_file.Strings[I]);

          if found <> 0 then
          begin

            Suser_time := my_file.Strings[found - 32]; //<--- hier "LISTENINDEX ÜBERSCHREITET DAS MAXIMUM (-31)"
            for J := 0 to 19 do Suser_time := Suser_time + Suser_time[J];
            Ldatum_out[zaehlen].Caption := Suser_time;
            Ldatum_out[zaehlen].Top := top;
            Ldatum_out[zaehlen].Width := Ldatum.Width;
            Ldatum_out[zaehlen].left := Ldatum.left;

          end;
          top := top + 40;
          zaehlen := zaehlen + 1;
      end;
end;