Mail ekinde image resmi gönderme

[QuAdR]

//MailMessage: TIdMessage;

var
 Path: string;
 SR: TSearchRec;


Path := ExtractFilePath(ParamStr(0));


if FindFirst(Path + '*.jpg', faAnyFile, SR) = 0 then
     begin
       repeat
         with TIdAttachmentFile.Create(MailMessage.MessageParts, Path + SR.Name) do
         begin
           ContentType := 'image/jpeg';
           FileName := SR.Name;
         end;
       until FindNext(SR) <> 0;
       FindClose(SR);
     end;