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 ...