procedure TForm1.Timer1Timer(Sender: TObject);
begin
  progressbar.Position := progressbar.Position + 1;
  if progressbar.Position > 40 then
    begin
      команда
    end;
end;