procedure TForm1.SuchButtonClick(Sender: TObject);
var
temp :string;
such :string;
result :array[0..100] of string;
i, j, anf, lang: integer;
begin
such:=edit1.Text;
Reset(Txt);
i:=0;
j:=0;
While not EOF(txt) do
  begin
  ReadLN(Txt, temp);
  lang:=length(such);
  anf:=pos(such, temp);
  if anf <> 0 then
    begin
    result[i]:=copy(temp, anf, lang);
    memo2.lines.add('Gefunden in Zeile '+inttostr(j)+');
inc(i);
end;
inc(j);
end;
end;

for i:=0 to length(deinstring) do  //deinstring wird mit Readln ausgelesen
begin
  if uppercase(deinstring[i]) = uppercase('e') then  //uppercase nur um GROß kleinschreibung
    ...mach irgendwas wie z.B. ausgeben oder so...   //zu ignorierern.
end;

  lang:=length(such);
  anf:=pos(such, temp);
  if anf <> 0 then
    begin
    result[i]:=copy(temp, anf, lang);

procedure TForm1.Sucheeee(datei, suchwort: string; var mem: TMemo);
var
  sl: TStringList;
  ndx: Integer;
  position: Integer;
  tmpstr1: string;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(datei); // Datei laden
    for ndx := 0 to sl.Count - 1 do //alle Zeilen des Textes durchgehen
    begin
      tmpstr1 := sl.Strings[ndx];
      position := 0;

      // solange noch Text in der aktuellen Zeile ist der dem suchwort
      // entsprächen könnte suche weiter
      while (length(tmpstr1) > (Length(suchwort))) do
      begin
        if (copy(tmpstr1, 1, Length(suchwort)) = suchwort) then //vergelichen
        begin
          mem.Lines.Add(Format('Suchwort gefunden Zeile %d an position %d', [ndx + 1, position + 1]));
        end;
        Delete(tmpstr1, 1, Length(suchwort));
        INC(position,Length(suchwort));
      end;
    end;
  finally
    FreeAndNil(sl);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if (OpenDialog1.Execute) then
  begin
    Sucheeee(OpenDialog1.FileName, Edit1.Text, memo1);
    Application.ProcessMessages;
  end;
end;

var deinString: String;
begin
  deinString := 'abcd abcde abcde';