[Mrak]

нужны компоненты "SMTP" и "IdMessage"

Код:

...
var AT: TIdAttachmentFile;   
begin
  with IdMessage1 do
  begin
    SMTP.Host:=Host;
    SMTP.Port:=Port;
    SMTP.Username:=Username;
    SMTP.Password:=Pas;

    Subject:='Картинка'; // тема письма
    body.Clear; 
    body.Text:='Вам картинка';
    if FileExists('C:\путь до файла') then
      AT:=TIdAttachmentFile.Create(MessageParts, 'C:\путь до файла');
    
    Recipients.EMailAddresses:=Aдрес получателя;
    ContentType:='multipart/mixed; charset=windows-1251'; // тип контента и кодировка
    ContentTransferEncoding:='8bit';

    // посыл
    try
      SMTP.Connect; // соединение с почтовым сервером
      SMTP.Send(IdMessage1); // отправка письма 
    finally
      SMTP.Disconnect;
      AT.free;
    end;
  end;
...