Работа со строками

[deadmaross]

Помогите пожалуйста написать программу.
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. В каждом слове заменить первую букву на прописную. Строку считывать из Edit, результат выводить в Memo.

[Hacker19_90]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := edit1.text;
  if ord(s[1]) in [65..90] then
  begin
    s[1] := chr(ord(s[1])+32);
  end;
  Memo1.Lines.Add(s);
end;