Como faço este programa em delphi?

Question

b. O botão Sorteia deve sortear 6 dezenas, concatená-las em uma string e adicionar essa string em lbxCartoes
c. Criar uma procedure para o evento OnCreate. Esta procedure irá gerar uma semente para sorteio (Randomize), desta forma, teremos seqüências diferentes a cada vez que executarmos o programa.
d. Alterar a procedure do botão sorteia de modo a impedir a repetição de dezenas dentro do mesmo cartão. utilizar a função pos(substring, string) que retorna com a posição onde aparece
uma substring dentro de uma string, ou zero, caso a substring não esteja contida na string.
e. Alterar a procedure do botão sorteia de modo que as dezenas de um mesmo cartão fiquem em ordem crescente. Para isso, teremos que criar uma matriz para armazenar as dezenas.

Answer 1

Amigo sou desenvolvedor, se vc quiser pega faço o sistema pra vc?

Answer 2

achei que era uma pergunta...
nao pedir pra alguem fazer o cod pra vc...
:(