Über Programm eMail versenden D3

[EDatabaseError]

Ich hab jetzt was gefunden aber er spuckt mir immer einen Fehler entgegen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Menus, StdCtrls, ExtCtrls, Db, DBTables, OleCtrls, isp3;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    N2: TMenuItem;
    Beenden1: TMenuItem;
    Drucken1: TMenuItem;
    Suchen1: TMenuItem;
    Hilfe1: TMenuItem;
    Inhalt1: TMenuItem;
    Info1: TMenuItem;
    ber1: TMenuItem;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    Panel1: TPanel;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Einstellungen1: TMenuItem;
    Orderliste1: TMenuItem;
    N1: TMenuItem;
    Druckereinrichten1: TMenuItem;
    Label9: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Artikelgruppen1: TMenuItem;
    Zusatzdefinitieonen1: TMenuItem;
    waittoreset: TTimer;
    Suche1: TMenuItem;
    Computerherunterfahren1: TMenuItem;
    Artikel1: TMenuItem;
    Artikelhinzufgen1: TMenuItem;
    Artikeleditieren1: TMenuItem;
    Suchergebnisse1: TMenuItem;
    WebIE1: TMenuItem;
    SMTP: TSMTP;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Artikelgruppen1Click(Sender: TObject);
    procedure Zusatzdefinitieonen1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure waittoresetTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Suche1Click(Sender: TObject);
    procedure Artikelhinzufgen1Click(Sender: TObject);
    procedure Suchergebnisse1Click(Sender: TObject);
    procedure WebIE1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure set_status(bar, panel: integer; text: String);
    procedure chkbef;
    procedure chkbc;
    procedure set_zusatz_labels;
    procedure resetSys;
    procedure AddLogEntry(s: String);
    procedure Error(s: String);

    procedure anzeigen;
    procedure einlegen;
    procedure entnehmen;

    procedure  Send_Mail(Absender, Empfaenger, Betreff, MailText : string);
  end;

var
  Form1: TForm1;
  state :                   Integer;
  mem, workdir :            String;
  gruppenArr :              Array[1..20] of String;
  zusatzArr, action :       Array[1..5] of String;

const
  items :                   integer = 1000;

implementation

uses Gruppen, Zusatz, Tables, DebugWindow, SuchenForm, Hinzufuegen,
  SuchenResult, WebInterface;

{$R *.DFM}

////////////////////////////////////////////////////////////////
procedure TForm1.Send_Mail(Absender, Empfaenger, Betreff, MailText : string);
begin //Hier ist der Fehler
 with SMTP do begin
  DocInput.Headers.Add 'From', Absender;
  DocInput.Headers.Add 'To', Empfaenger;
  DocInput.Headers.Add 'Subject', Betreff;
 end;

 RemoteHost = 'mail';
 SendDoc,,mailText;
end;

Da noch ein Bild: