Подстрочный текст

[AlexBobrov]

Всем доброго времени суток, что нужно сделать что бы вывести Q1, но 1 была подстрочной?

[AlexBobrov]

Пробовал вот так но почему- то ничего не выводит:

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:=' ';
Label1.Canvas.TextOut(0,0,'Q');
 x:=x+Label1.Canvas.TextExtent('Q').cx ;
Label1.Canvas.TextOut(x,10,'1');
end;