[RaZEr]

Ну братец. Синтаксис языка не знать. Открываем книжку и читаем. Пример:

with Sender as TMenuItem do
begin
...
end;