var
Ret, novyRet: string;
i, posun: integer;
begin
Ret:= Edit1.Text;
novyRet:= '';
posun := ord('a') - ord('A');
for i:=1 to length(Ret) do
if (Ret[i] >= 'a') and (Ret[i] <= 'z') then
novyRet:= novyRet + chr (ord(Ret[i]) - posun)
else novyRet:= novyRet + Ret[i];
Memo1.Lines.Add (novyRet);
end;