procedure TForm1.FaxGonder ;
begin
if chk.Checked then
begin
smtp.Connect;
smtp.PostMessage.FromAddress:='xxx@xxx.com.tr';
smtp.PostMessage.ToAddress.Clear;
smtp.PostMessage.ToAddress.Add('FAXG3/9'+q1FFAX.AsString+'@smtpserveradi');
smtp.PostMessage.Body.Clear;
smtp.PostMessage.Body.LoadFromFile(FName);
smtp.SendMail;
smtp.Disconnect;
end ;
end ;