И правда работает,здОрово - тогда нужна только процедура клика кнопки:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
i : integer;
begin
str:= Edit1.Text;
for i:= 1 to Length(str) do
// for i:= Length(str) downto 1 do
begin
str[i]:= AnsiUpperCase(Str[i])[1];
memo1.Lines.Add(str);
end;
end;