[Помогите!] Чо за ?!

[CyberNETik]

procedure TForm1.Button1Click(Sender: TObject);
begin
progressbar1.Position:=10;
IdSMTP1.host:= 'Smpt.mail.ru' ;
progressbar1.Position:=20;
IdSMTP1.port:=465;
progressbar1.Position:=30;
IdSMTP1.username:= 'почта ' ;
progressbar1.Position:=40;
IdSMTP1.password:= 'пароль'  ;
progressbar1.Position:=50;
IdMessage1.body.Text:= Memo1.Text;
progressbar1.Position:=60;
IdMessage1.from.text:= 'от кого' ;
progressbar1.Position:=70;
IdMessage1.Recipients.EMailAddresses:= 'получатель' ;
progressbar1.Position:=80;
IdMessage1.subject := 'тема';
  progressbar1.Position:=90;
IdSMTP1.Connect;
IdSMTP1.Send(idMessage1);
IdSMTP1.disconnect ;
progressbar1.Position:=100;

где ошибка? мне почему то при нажатии на баттон 1 программа выдаёт [Ссылки могут видеть только зарегистрированные пользователи. ]

[finkrer]

Да у вас ехло аргумент инвалид

[blad56]

Вначале сделай Progressbar:=0;
А потом делай каждый раз progressbar1:=prpogressbar1+1
Конечно выглядит плохо, но работает.
Будет что-то типа:

Цитата: procedure TForm1.Button1Click(Sender: TObject); begin Progressbar.position:=0; IdSMTP1.host:= 'Smpt.mail.ru' ; progressbar1.Position:=progressbar1.Position+1; IdSMTP1.port:=465; progressbar1.Position:=progressbar1.Position+1; IdSMTP1.username:= 'почта ' ; progressbar1.Position:=progressbar1.Position+1; IdSMTP1.password:= 'пароль' ; progressbar1.Position:=progressbar1.Position+1; IdMessage1.body.Text:= Memo1.Text; progressbar1.Position:=progressbar1.Position+1; IdMessage1.from.text:= 'от кого' ; progressbar1.Position:=progressbar1.Position+1; IdMessage1.Recipients.EMailAddresses:= 'получатель' ; progressbar1.Position:=progressbar1.Position+1; IdMessage1.subject := 'тема'; progressbar1.Position:=progressbar1.Position+1; IdSMTP1.Connect; IdSMTP1.Send(idMessage1); IdSMTP1.disconnect ; progressbar1.Position:=100;

[VeTaL_UA]

А вложения где потерял?

[CyberNETik]

Цитата: Сообщение от blad56 Вначале сделай Progressbar:=0; А потом делай каждый раз progressbar1:=prpogressbar1+1 Конечно выглядит плохо, но работает. Будет что-то типа:

конеш всё окей,но та же ошибка..
+Насчёт вложения,скажите что это