[Помогите!] Насчёт Tidsmpt и Tprogressbar

[CyberNETik]

Приветствую вас,работаю в рад студио.
У меня вопрос,точнее прошу помощи..
Дайте пожалуйста команды прибавление Progressbara
т.е. увеличение значения прогрес бара от 0 до 100,.м как бы объяснить короче что бы прибавлялось некое количество очков из 100 стандартных в прогрессбаре. Т. е. команда :
Прогрессбар +(1) (ну типо этого)

Вопрос по Tidsmpt
Мне нужно что бы через программу можно было отправлять письма,точнее вот как
1)Tedit1- хост (smt.mail.ru smpt.yandex.ru)
2)Tedit2 - логин
3)Tedit3 - пароль
4)Tedit4 - тема письма
5)Tmemo1 - само письмо.

Буду очень благодарен

[InFixion]

Цитата: Сообщение от CyberNETik Приветствую вас,работаю в рад студио. У меня вопрос,точнее прошу помощи.. Дайте пожалуйста команды прибавление Progressbara т.е. увеличение значения прогрес бара от 0 до 100,.м как бы объяснить короче что бы прибавлялось некое количество очков из 100 стандартных в прогрессбаре. Т. е. команда : Прогрессбар +(1) (ну типо этого)

ты это имел ввиду? )

procedure TForm1.Button1Click(Sender: TObject);
begin
progressbar1.StepBy(1);
end;

Добавлено через 2 минуты
по нажатии на кнопку добавляет по 1% к прогрессу

[Number/1/]

Цитата: Сообщение от CyberNETik Вопрос по Tidsmpt Мне нужно что бы через программу можно было отправлять письма,точнее вот как 1)Tedit1- хост (smt.mail.ru smpt.yandex.ru) 2)Tedit2 - логин 3)Tedit3 - пароль 4)Tedit4 - тема письма 5)Tmemo1 - само письмо.

[Ссылки могут видеть только зарегистрированные пользователи. ]