Moin Aike,
dann sollte sich das mit PosEx lösen lassen.
Als erstes würde ich mir die Startposition des primären Wortes suchen (pos), und dann solange mit PosEx das sekundäre suchen, solange dessen Startposition kleiner als die des primären ist.
Ein Beispiel:
Delphi-Quellcode:
var
sSearch : string;
iPrimaer : integer;
iCount : integer;
iSekundaer : integer;
begin
sSearch := 'Delphi Delphi Delphi Delphi Praxis Delphi Delphi';
iPrimaer := pos('Praxis',sSearch);
iCount := 0;
iSekundaer := pos('Delphi',sSearch);
while iSekundaer < iPrimaer do begin
inc(iCount);
iSekundaer := PosEx('Delphi',sSearch,iSekundaer+1);
end;
ShowMessage('Delphi: '+IntToStr(iCount));
end;