Переделай
if MenuGetSelectedIndex = p2 then ShowList('Test test test test test test test test');
на
if MenuGetSelectedIndex = p2 then
begin
ShowCanvas;
ShowList('Test test test test test test test test');
Repaint;
Delay(5000);
end;
Да и мне кажется, что нужно писать if MenuGetSelectedIndex = 0 или if MenuGetSelectedIndex = 1, а не сравнивать их с p1 или p2.