По нажатию кнопки каждое слово в TMemo должно начинаться с большой буквы

[Dzeto]

Здравствуйте.
По заданию нужно создать кнопку, по нажатию которой каждое слово, введенное в Memo1, должно начинаться с заглавной буквы.

procedure TForm1.Button1Click(Sender: TObject);
var
 i,n:integer;
 str,buf:string;
begin
  str:=memo1.Text;
  buf:=' ';
  memo1.clear;
  for i:=1 to length(str) do
 begin
     if ((buf=' ')or(buf='/n'))and(str<>' ') then
     if (str in ['a'..'z', 'а'..'я']) then     
     str:= chr(ord(str) - 32);
     memo1.Text:=memo1.Text+str;
     buf:=str;
 end;
end;

Ссылается на ошибку в строке if (str in ['a'..'z', 'а'..'я']) then. Пишет Incompatible types: 'String' and 'Char'
Помогите, пожалуйста, как исправить данную ошибку?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GetMax]

if (str in ['a'..'z', 'а'..'я']) then

Как строка может входить в множество? Нужно обращаться к конкретному символу строки

if (str[i] in ['a'..'z', 'а'..'я']) then

P.S. По моему у вас код будет работать для одного единственного слова в Memo1.

[Dzeto]

Да, надо было str[i] везде. В общем, код такой

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer; 
str,buf:string; 
begin 
str:=memo1.Text;
buf:=' '; 
memo1.clear; 
for i:=1 to length(str) do 
begin 
if ((buf=' ')or(buf='/n'))and(str<>' ') then 
if (str[i] in ['a'..'z', 'а'..'я']) then
str[i]:= chr(ord(str[i]) - 32);
memo1.Text:=memo1.Text+str[i];
buf:=str[i];
end; 
end;