прочитать слово из тескстового файла

[mosq]

фига вы тут накрутили )) а где же красота в минимализме кода? )))
bicdibus, все проще.

procedure TForm1.Button1Click(Sender: TObject);
var ww:tstrings;
begin
randomize;
ww:=tstringlist.create;
ww.LoadFromFile('c:\1.txt'); //грузим текстовый файл, разбитый на строчки, или в одну строчку, это неважно
ww.CommaText:=ww.Text; //комматекст разбивает список на слова, используя разделители "пробел", "запятая", "точка с запятой"..
showmessage(ww.Strings[random(ww.count-1)]); //показываем рандомом слово из списка
ww.Free;
end;

не знаю про символ "точка", но это уже из области тюнинга, можно добавить проверки на другие левые символы, кроме букв
--update
проверку на косые символы сделал бы так

const bad='!@#$%^^&*()_+-=|\,./'; //сюда забить весь список символов. кодами неудобно смотреть, а так сразу наглядно
var s:string; i:integer;
...
s:=ww.Strings[random(ww.count-1)];
for i=length(s) downto 1 do //проверяем каждый символ в выбранном слове
   if pos(s[i],bad) then delete(s,pos(s[i],bad),1); //если символ есть в списке кривых симоволов, удаляем его
showmessage(s);

удачи.