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!