[alexteam]

в секции const присвоение делаеться обычным = а не :=
т.е:
message = 'Ваше сообщение в чат';

а тут, ктото просто забыл вызывать say с этим параметром.
procedure OnTimer01(Sender: TObject);
begin
say(message);
end;