Fórum Pegar número inteiro entre números #352202

procedure TForm1...
var
  Numero: Integer;
begin
  Randomize;
  repeat
    Numero := Random(5);
  until (Numero > 1) and (Numero < 5)
end;

function TForm1.FaixaInteiros(Inicio, Fim: Integer): TStrings;
var I: Integer;
begin
  Result  := TStringList.Create;
  for I := Inicio+1 to Fim-1 do
    Result.Add(IntToStr(I))
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(FaixaInteiros(1,10).Text);
end;