Код для использования массива с целью вывести числа, кратные 3 в интервале от а до в (Delphi)

[jie4e]

Само задание звучит так:
Вывести по убыванию числа, кратные 3 и принадлежащие интервалу от [a..b]. Границы задаются с клавиатуры,

Вообщем edit1 для a, edit2 для b, label1 для самих чисел, помогите с составлением самой программы

[Felian]

Исходные данные:
a записано в Edit1.Text
b записано в Edit2.Text
Вывод: Label1.Caption

Код:

procedure Numbers();
var
  a, b, i: Integer;
  s: String;
begin
  a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  for i := b downto a do
  begin
    if (b mod 3 = 0) or (b < a) then
      Break;
    b := b - 1;
  end;
  if (b < a) then
    Exit;
  s := '';
  while (b >= a) do
  begin
    s := s + IntToStr(b) + ', ';
    b := b - 3;
  end;
  SetLength(s, Length(s)-2);
  Label1.Caption := s;
end;

Вызывать эту процедуру, например, по щелчку на кнопке.

[Zer0]

Ну для начала если процедуру вызвать при нажатии на кнопку - она начнет ругаться, ибо контролы вне её видимости, нужно ко всему добавлять Form1 (ну или как там форма называется)
можно сделать проще и короче:

procedure TForm1.Button1Click(Sender:TObject);
var s:string;
a,b,i:integer;
begin
 a:=StrToInt(Edit1.Text);
 b:=StrToInt(Edit2.Text);
 s:='';
 for i:=b downto a do
  if b mod 3 = 0 then
   s:=s+IntToStr(i)+', ';
 if s='' then s='Таких чисел нету'
 else SetLength(s,Length(s)-2);
 Label1.Caption:=s;
end;