Заставить РrogressBar переходиь по значению Edit.

procedure TForm1.Button1Click(Sender: TObject);
var
  p: string; // Шаг ProgressBar
begin
  p:= Edit1.Text; // Изначально пробовал и 0
  If p > IntToStr(0) Then // При условии, что > 0 то можно только наверх
    begin
      Timer1.Enabled:= True;
      Progressbar1.Position:= ProgressBar1.Position + StrToInt(p);
      ProgressBar1.Step:= ProgressBar1.Step + StrToInt(p);
    end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:= False;
end;

var
  Form1: TForm1;
  n: Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var e: Integer;
begin
  n := StrToInt(Edit1.Text);
  e := ProgressBar1.Max div 10;   // 10 кол-во этажей вообще
  n := n * e;
  Timer1.Enabled := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var x: Integer;
begin
  x := n;
  if ProgressBar1.Position < x then
    begin
      ProgressBar1.Position := ProgressBar1.Position + 2;
      if ProgressBar1.Position = n then
        Timer1.Enabled := False;
    end;
  if ProgressBar1.Position > x then
    begin
      ProgressBar1.Position := ProgressBar1.Position - 2;
      if ProgressBar1.Position = n then
        Timer1.Enabled := False;
    end;
end;