Realmente no recuerdo desde qué versión de Delphi incluyeron esta característica, pero si tienes una de las últimas seguro que te serviría cambiar el InputBox por InputQuery, esto te permite poner varias opciones y botones en dicha ventana...
http://docwiki.embarcadero.com/Libra...ice.InputQuery
Uno de los ejemplos de uso:
Código Delphi
[-]TDialogService.InputQuery('Cantidades', ['Item', 'Cajas', 'Moldes'], ['0', '0', '0'],
procedure(const AResult: TModalResult; const AValues: array of string)
begin
if AResult = mrOk then
begin
ShowMessage('Presionó Ok y sus valores son ' + AValues[0] + ' , ' + AValues[1] + ' y ' + AValues[2]);
end;
end);