Выводить можно с помощью DrawText(s, x, y), где
s - выводимая строка;
x,y - координаты левого верхнего угла текста.
После отрисовки
всего, что нало вывести подряд (без действий пользователя) вызывается Repaint.
И еще
if a=1 then
if b=3 then
if c=0 then
if d=7 then
гораздо лучше писать так:
if a=1 and b=3 and c=0 and d=7 then
таким образом, получится примерно так:
var a,b,c,d:integer;
begin
//ввод a, b, c, d
showcanvas;
if a=1 and b=3 and c=0 and d=7 then
DrawText('№1',0,10);
//другие условия
repaint;
end.