Vielleicht so:
Delphi-Quellcode:
// 1. Zeichen gehört zum 1. Wort, somit ist zu Beginn "WortAnfang" = true
WortAnfang := true;
for i := ... to ... do
begin
// Auswertung / Pos ermitteln etc.
// if WortAnfang then AnfangsIndex := i;
// ...
Wortanfang := false;
// Beim Leerzeichen das nächste Zeichen als Wortanfang markieren
if Text[i] = ' ' then
WortAnfang := true;
end;
Nur so auf die Schnelle aus dem Kopf. Sonderzeichen & Co. fehlen ebenfalls.