怎么用delphi编写自己的inputbox函数

delphi自带的Imputbox函数不美观 怎么去自己编写一个类似于inputbox函数功能的函数，求各位大虾指教