Merhaba. Daha önceleri kendi işim için yazdığım bir kod vardı. Sanırım bu kod sizin işinizi görür. function BoslukAdediVer(Text: String): Integer; var a,b: Integer; begin a := 0; b := 0; while a <= Length(Text) do begin if a > 0 then if (Copy(Text,a-1,1) <> ' ') and (Copy(Text,a,1) = ' ') then Inc(b...