[Keygenmusic]

в эдите в событии OnChange:
Memo1.Font.Size := 20;