No estoy seguro de entender tu pregunta... pero para mostrar algo en pantalla, botá un Tlabel en el form y según te interese el mensaje haces lo siguiente:
Código Delphi
[-]
Procedure LlamarACaja;
Begin
if FCaja <> 0 Then
Label1.Caption := Format('Pase a caja %d', [FCaja])
else
Label1.Caption := '';
end;
En este caso, FCaja es una variable que tiene el número de la caja a pasar y si es 0, limpia la etiqueta.
Hasta luego.
