Abaixo um exemplo. se vc já resolveu beleza. Caso contrário vai ajudar outros que tiverem a mesma dificuldade.
O exemplo abaixo foi feito no Delphi...