Разложить предложение на слова

[motiv4ik]

В общем, задача программы заключается в следующем:
В edt1 пишется какое-то предложение, к примеру, "как дела малыш"
в memo1 должно по-строково вывести
"
как
дела
малыш
"
Вот тут, кое-что накидал, отовсюду и ото всех по чуть взяв. В итоге почти то, что нужно но запутался сам.

var
  Form1: TForm1;
  txt:string;   // исходный текст
  slovo:shortstring;  // слово из текста
const
  razd=' .,!?;:-"()';
glas='уУеЕыЫаАоОэЭяЯиИюЮ';
nn='Нн';

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i:integer; sog:integer; gl:integer; n:integer;
begin
 slovo:='';
 txt:=edt1.Text;
 if txt='' then begin
   showmessage('Введите исходный текст !');
   edt1.SetFocus;
   exit
 end;

 while pos(txt[length(txt)],razd)<>0 do
  delete(txt,length(txt),1);
 for i:=1 to length(txt) do
  if pos(txt[i],razd)=0
   then begin
     slovo:=slovo+txt[i];
     if pos(txt[i],glas)<>0 then

     //здесь что-то
   end
   else if   (slovo<>'')
         then begin
          if (gl<sog)then mmo1.Lines.Add(slovo);
          slovo:='';
          gl:=0;
          sog:=0;
         end;



 mmo1.Lines.Add(slovo);
 
 for i := 1 to length(slovo) do begin
   if (pos(slovo[i],nn)<>0) then n:=n+1
 end;
 mmo1.Lines.Add(inttostr(n));
 edt1.Text:='';
 edt1.SetFocus;
 end;

end.

[Serge_Bliznykov]

а что должно быть со знаками препинания?!
Например, если в Edit1 внесли текст:
"Как дела, Малыш? Ты, надеюсь, не спишь?!"
что должно быть в Memo1 ?


такой вариант устроит?

const
  Delimiters = [' ','.',',','!','?',';',':','-','"','(',')',''''];
  glas='уУеЕыЫаАоОэЭяЯиИюЮ';
  nn='Нн';

procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer; sog:integer; gl:integer; n:integer;
  slovo, txt : string;
begin
 txt:=edt1.Text;
 if txt='' then begin
   showmessage('Введите исходный текст !');
   edt1.SetFocus;
   exit
 end;

 slovo:='';
 txt := txt + ' ';
 for i := 1 to Length(txt) do begin
   if txt[i] in Delimiters then begin
     if ( Trim(slovo)<>'' ) then mmo1.Lines.Add(slovo);
     if txt[i]<>' ' then
        mmo1.Lines.Add(txt[i]); {если надо, знаки препинания (кроме пробела) тоже пихаем в мемо}
     slovo := '';
   end
   else
     slovo := slovo + txt[i];
end;
 edt1.Text:='';
 edt1.SetFocus;
end;

[Базиля]

"как дела малыш"

Наилучшие примеры для исходных данных у ТС
Даже боюсь предположить, о чем думал автор, когда писал код.

"Как дела, Малыш? Ты, надеюсь, не спишь?!"

P.S. Прошу прощения за оффтоп.

[Serge_Bliznykov]

Базиля, жжёшь!!!!


я не специально, просто так получилось!