[Electronic_Arts]

есть такой код

Код:

TrayIcon1.BalloonHint:='ОШИБКА';
TrayIcon1.BalloonTitle:='Внимание!';
TrayIcon1.BalloonFlags:=bfError;
TrayIcon1.ShowBalloonHint;

как это превратить в процедуру - что бы вызвать это одной строкой к примеру

Код:

Error;

просто TrayIcon1 это компонент...

попробовал так у меня программа ругается почему не подскажете??

Код:

procedure error;
var
TrayIcon1: TTrayIcon;
begin
TrayIcon1.BalloonHint:='ОШИБКА';
TrayIcon1.BalloonTitle:='Внимание!';
TrayIcon1.BalloonFlags:=bfError;
TrayIcon1.ShowBalloonHint;
end;

голова уже не варит...торможу...