procedure example(a: integer); const A = 'jeja'; var sMessage: string; begin ShowMessage(sMessage + A); end;