reproductor banco

[jachguate]

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.