Canvas Texte verschiedener Größen auf einer Linie ausgeben?

[Popov]

Wie der Titel schon aussagt, ich möchte Texte mit verschiedenen Größen auf einer Grundlinie ausgeben, also wie es jede beliebige Textverarbeitung auch macht. Die Standardmöglichkeiten bieten nur die Möglichkeit die Texte auf gleicher Höhe auszugeben.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Font.Size := 10;
  Canvas.TextOut(100, 100, 'Hallo');

  Canvas.Font.Size := 28;
  Canvas.TextOut(150, 100, 'Welt');
end;

Ich hab momentan keine Idee wie ich das anstellen kann.

Also in etwa so:

Hallo Welt