[Angel.Matilla]

Empezado por Neftali

procedure TForm1.Button1Click(Sender: TObject);
begin
  TaskDialog1.CommonButtons := [tcbOk,tcbRetry];
  TaskDialog1.Execute;
end;

EN delphi no dudo que funcione, pero esa sintaxis no me vale en Builder