Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.IdSMTP1.Host:=edit1.Text;
form1.IdSMTP1.Username:=edit2.Text;
form1.IdSMTP1.Password:=edit3.Text;
try
form1.IdSMTP1.Connect;
except
end;
form1.IdMessage1.From.Address :=edit2.Text;
form1.IdMessage1.Recipients.EMailAddresses:=edit4.Text;
form1.IdMessage1.Subject:=edit5.Text;
form1.IdMessage1.Body.Add(memo1.Text);
form1.IdSMTP1.Send(form1.IdMessage1);
form1.IdSMTP1.Disconnect;
FORM1.IdMessage1.Clear;
label1.Caption:='Mail Gönderildi.';
end;
code: отсутствующий место где