naja, der code hat mit delphi sehr wenig zu tun
ist wohl so eine art assembler!
ne schleife geht natürlich!
memofeldinhalt auf einen string speichern, im string mit while length(string) > 0 und pos nach dem wort suchen. wenn gefunden hochzählen und ganz wichtig: gefundenes wort löschen!