Wie wäre es z.B. mit einer Schleife. Aber vieleicht solltest Du mal deinen Code zeigen, damit man das eventuell besser beurteilen kann. Mit einer Schleife könntest Du das z.B. in etwa so gestalten...
Delphi-Quellcode:
var
iPos : integer;
begin
...
while Pos('Suchetext', Text) > 0 do
begin
iPos := Pos('Suchtext', Text);
ShowMessage(IntToStr(iPos));
end;
Gruß Jens