ShowMessage als Hyperlink

[Frida88]

Hallo zusammen,
habe mir ein kleines Programm geschrieben das nach eingabe einer Nr. mir eine meldung anzeigt
Die Nummer wird mir dann in ShowMessage als komplette Adresse angezeigt.

Hier der Code :

procedure TForm2.Button1Click(Sender: TObject);
var X : Double; x_str: String;x_info: Integer;
begin
x_str:=InputBox('Zahleneingabe','Bitte Ab.Nr. eingeben','') ;
Val(x_str,x,x_info);
if x_info=0 then
begin
ShowMessage('https://C:/kstore/Documents/Versandetiketten/100%20AB0'+x_str+'.pdf');
end;
end;

end.

Nach eingabe einer Nummer kommt dann ein Meldungsfenster mit meiner kompletten Adresse.
Kann ich diese Adresse als Hyperlink anzeigen lassen, so das ich nur noch drauf klicke und die Datei geöffnet wird. ??

Wäre Super dankbar für eure Hilfe.