procedure Gay begin showmessage end

1
2
3
4
procedure Gay;
begin
showmessage(':)');
end;