procedure TForm1.Button1Click(Sender: TObject);
var ch,sh,n:integer;
begin  
  ch:=StrToInt(Edit1.Text);
  sh:=StrToInt(Edit2.Text);   
  n:=StrToInt(Edit3.Text);
  if n>ch then 
     begin 
       Label1.Caption:=('Incorrect value n!');
       exit;
     end;
  if n=ch then 
    begin 
      Label1.Caption:=('Undoubtedly!');
      exit;
    end;
  while n<ch do 
    begin //Входим в цикл когда нач.член меньше либо равен числу!
       n:=n+sh; //Если нет, - то прибавляем шаг ариф.прогресии!
    end;
if n=ch then
Label1.Caption:=('Yes!') //Число является числом из прогресии!
else
Label1.Caption:=('No!'); //Перешагнули число, - значит число не из прогресии!
end;
end.