Text aus Memo in Datenbankfeld eintragen

[DelphiManiac]

Hallo,

ich habe folgendes Problem,
ich nutze einen SQL Server 2008 und will in einer Tabelle den Body einer zuverschikenden Email speichern,
und habe hierzu eine Tabelle angelegt

tblEmail

SQL-Code:

CREATE TABLE [dbo].[tblEmail](
   [EmailID] [bigint] NULL,
   [EmailHost] [nvarchar](50) NULL,
   [EmailUserName] [nvarchar](50) NULL,
   [EmailPort] [bigint] NULL,
   [Sender] [nvarchar](50) NULL,
   [Headline] [nvarchar](50) NULL,
   [Body] [text] NULL,
   [EmailPasswort] [nvarchar](50) NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

Das Feld Body habe ich als text angelegt.

Nun will ich einen Mehrzeiligen Text aus einem Memo Feld in meiner Datenbank speichern,
dazu muss ich den Wert auslesen in ein Memo laden ändern und zurückschreiben können.

Delphi-Quellcode:

with TADOQuery.Create(Self) do
  begin
    Connection := ADOConnection1;
    SQL.Clear;
    Active := False;
    SQL.Text := 'SELECT * FROM tblEmail';
    Active := True;
    First;
    Edit;
    //Test
    ShowMessage(emaildat.body.Text);
    FieldByName('Body').AsWideString:=emaildat.body.Text; // Hier wird immer nur die 1. Zeile in der DB gespeichert...

    Update;
  end; // of with TADOQuery.Create(Self) do
end; // of function TFrmMainGUI.GetEmailData(var emaildat: REmailInfos): Boolean;

Leider wird bei der Methode die ich anwende immer nur der 1. String gespeichert des Memos. Ich weiß nicht wo das Problem ist.
Vielleicht könnt ihr mir ja helfen

Danke
Gruß
DM