function vgl (str1, str2 : string): boolean;
var s, s2 : string;
    x, richtig, i, o : integer;
    uebereinstimmung : boolean;
begin
  if gks = false then begin // Wenn gks = false, dann wird der Text in Großbuchstaben umgewandelt
     str1 := Uppercase (str1);
     str2 := Uppercase (str2);
  end;

  vgl := false;
  if str1 = str2 then begin
     result := true;
     exit;
  end;
  if length(str2) > length(str1) then begin
     s := str1;
     str1 := str2;
     str2 := s;
  end;
  { str1 ist die längere satzkette }
  s := '';

  i := -1; // Wenn Vgl.String > Org.String ist, keine Übereinstimmung mehr möglich
  uebereinstimmung := false;
  while (i <= length(str1)) and (i <= length(str1)-length(str2))
   and (uebereinstimmung = false) do begin
    inc (i);
    o := 0;
    richtig := 0;

    for o := 0 to length(str2)-1 do begin
        if (str1[i+o] = str2[1+o]) then inc (richtig);
        if richtig = length(str2) then uebereinstimmung := true;
    end;
  end;

  if uebereinstimmung = true then result := true;
end;