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

procedure TForm1.Button1Click(Sender: TObject);
var suffix: array of string;
p,i,j:integer;
text:string;
begin
setlength(suffix,5);
suffix[0]:='type1';
suffix[1]:='type2';
suffix[2]:='type3';
suffix[3]:='type4';
suffix[4]:='type5';

for i:=0 to memo1.lines.count do  //Alle Zeilen des Memos

  for j:=low(suffix) to high(suffix) do //Zeile nach jedem Suffix durchsuchen
    begin
    p:=pos(suffix[j],memo1.lines[i]);
    if p>0 then
      begin text:=midstr(memo1.lines[i],1,length(memo1.lines[i])-p-1);
      memo2.lines.add(text);  //Ausgabe
      end;
    end;

end;