function TForm1.trimmen(M:TMemo):TMemo;
var y,x : integer;
    code : string;
begin
for y := 0 to M.Lines.count-1
do begin
          code := '';
          for x:= 1 to length(M.Lines[y])
          do if Upcase(M.Lines[y][x]) in['A'..'Z']
             then code := code + Upcase(M.Lines[y][x])
             else case Upcase(M.Lines[y][x]) of
                  'Ä': code := code + 'AE';
                  'Ö': code := code + 'OE';
                  'Ü': code := code + 'UE';
                  'ß': code := code + 'SS';
                  else
                       code := code + ' ';
                  end;
          result.Lines.Add(code);
   end;
end;