Foros Club Delphi - problema con campo MEMO

Bueno, el título creo que lo dice todo.

Entorno : Delphi 7 conexión ODBC a MySQL 5

Tengo hecha la conexión ytodo funciona OK hasta que le inserto un campo memo, entonces el código que veis me da un error y lo único que hay nuevo (con respecto a la rutina operativa) es la inserción de la linea que esta en rojo, (en la tabla de MySql el campo es del tipo TEXT).
He estado buscando información pero no he encontrado nada, lo curioso es que el resto de campos se actualizan con los datos, excepto el que os comento.

En el formulario el componente que aloja los datos es del tipo Tmemo. Un detalle curioso es que si en vez de poner;

Código:

Aquery1.Parameters.ParamByName('dato6').Value:=links.Text;



pongo



Aquery1.Parameters.ParamByName('dato6').Value:=links.Lines;



el compilador me da error por incompatibilidad de tipos de variable Variant y String

Esto es lo que tengo puesto

Código:

procedure TForm1.anadirClick(Sender: TObject);

begin

try

screen.Cursor:=crSQLWait;

AQuery1.SQL.Clear;

Aquery1.SQL.Add('INSERT INTO tabla (eh_des,eh_cat,eh_tip,eh_sim,eh_desc,eh_link,eh_post,eh_ubic)'+

                '  VALUES (:dato2,:dato3,:dato4,:dato5,:dato6,:dato7,:dato8,:dato9)');

Aquery1.Parameters.ParamByName('dato2').Value:=fecha.Date;

Aquery1.Parameters.ParamByName('dato3').Value:=descripcion.Text;

Aquery1.Parameters.ParamByName('dato4').Value:=categoria.Items[categoria.ItemIndex];

Aquery1.Parameters.ParamByName('dato5').Value:=simulador.Items[simulador.ItemIndex];

Aquery1.Parameters.ParamByName('dato6').Value:=links.Text;

Aquery1.Parameters.ParamByName('dato7').Value:=Descargado.Checked;

Aquery1.Parameters.ParamByName('dato8').Value:=Post.Text;

Aquery1.Parameters.ParamByName('dato9').Value:=ubicacion.Text;

AQuery1.ConnectionString:=server(1);

Aquery1.Open;

except

  on E: Exception  do

      begin

      Application.MessageBox( 'No hay comunicación con el servidor o no se grabaron los datos correctamente', 'ERROR GRAVE', MB_ICONSTOP );

      desconectar();

      end;

  end;

botones(0,0,1,1,1);

screen.Cursor:=crDefault;

end;

Gracias por vuestra ayuda.

Saludos
Juanjo