como gerar aleatório entre dois números de celular

[Dfox]

Boa tarde, como gera entre dois números de celular?

ex: ao clicar um botão ele me retornar um numero de telefone  (17) 98573-1231 ou (18) 99396-5327 algo como randômico.

[Renato Rubinho]

Boa noite,

Crie uma lista com os telefones que desejar.

Utilize o random para escolher qual item pegar.

http://www.delphibasics.co.uk/RTL.asp?Name=Randomize 

[Dfox]

Obrigado pela atenção

mas consegui assim

 

procedure TfrmPrincipal.Ac_WhatsAppExecute(Sender: TObject);
var
  meulink, minhamsg, meuphone :string;
  num:Integer;
begin
  Randomize;
  num := Round(Random(2) +1);
  case num of
    1: meuphone := '1798573-1231';
    2,3: meuphone := '18 99396-5327';
  end;
  minhamsg    := 'Olà Tudo bem';
  if InputQuery('Sua Menssagem', 'Escreva Algo:', minhamsg) then
  begin
    meulink := 'https://api.whatsapp.com/send?1=pt_BR&phone=' + meuphone + '&text=' + minhamsg + '';
    ShellExecute(handle,'open',PChar(meulink), '', '',SW_SHOWNORMAL);
  end;
end;

[Renato Rubinho]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.