hace una input box en delphi?

[Gattaca]

Muchas gracias a ambos, pero al de arriva, sele olvido decirme que le declare la variable:

Código Delphi [-]
Procedure ...
var
cajadeinput : string;
begin
cajadeinput:=inputquery('Inserte ID:', 'Por favor...', '000000-000000');
if cajadeinput='00000-00000' then
begin
...
end else begin
...
end;

end.

Saludos!