Update UMain.pas

Дьявольский рефакторинг!