Программа по строкам! (Delphi)

[RNR]

проверьте пожалуйста , что не так в коде. Программа должна выводить слова начинающиеся и заканчивающиеся на гласную букву.
Заранее благодарна.
________
type
TForm1 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
Button1: TButton;
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
txt:string;
slovo:shortstring;
const
razd=['.',',','!',' ','?',';',':','-','"','''','(',')'];
glas=['а','А','о','О','е','Е','у','У','ё' ,'Ё','и','И','э','Э','ю','Ю','я','Я ','ы','Ы'];
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
slovo:='';
txt:=edit1.Text;
if txt='' then begin
showmessage('Введите исходный текст !');
edit1.SetFocus;
exit
end;
memo1.Lines.Add('Введенный текст состоит из следующих слов:');
for i:=1 to length(txt) do
if (pos(txt[i],'razd')=0) and (pos(txt[1],'glas')=0) and(pos(txt[length(txt)],'glas')=0) then
slovo:=slovo+txt[i]
else
if slovo<>'' then
begin
memo1.Lines.Add(slovo);
slovo:='';
end ;

if slovo<>'' then
memo1.Lines.Add(slovo);
edit1.Text:='';
edit1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Close ;
end;

end.
_____________

[3D Hunter]

Смотрите пример, переделал кое-что:
words.zip