1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function findeText(zfT:String):int64;
var i,gefundenAnStelle:int64;
    gefunden:Boolean;
begin
i:=0;
while ((i<=length(MemoMitZuDurchsText.Text)-length(zfT))and(not gefunden)) do
  begin
  if copy(MemoMitZuDurchsText.Text,i,length(zfT))=zfT then
    begin
    gefunden:=true; 
    gefundenAnStelle:=i;
    end
  else
    i:=i+1;
end;
if (gefunden) then
  return gefundenAnStelle;
else
  return -1;
end;