function WideInputQuery(const ACaption: WideString; const APrompt: WideString; var Value: WideString): Boolean;

TntDialogs

TNT-WARN InputQuery 

Input dialog