[cloayza]

Amigo lo primero que te sugiero es que leas guia de estilo

Segundo, si lo que estas ejecutando es un Insert, debes realizar el siguiente cambio.

Código Delphi [-]
Query3.Close;
// Query3.SQL.Clear;
Query3.Params[0].Value:=StrToInt(Edit12.Text);
Query3.Params[1].Value:=date();
Query3.Params[2].Value:=StrToInt(Edit2.Text);
Query3.Params[3].Value:=StrToInt(Memo1.Text);
Query3.Params[4].Value:=StrToInt(Memo2.Text);
Query3.Params[5].Value:=StrToInt(Memo3.Text);
Query3.Params[6].Value:=StrToInt(Edit5.Text);
{Query3.Open;}
Query.ExecSQL;

Cuando usas INSERT, UPDATE, DELETE debes usar ExecSQL
Cuando usas SELECT debes usar OPEN;

Espero que soluciones tu problema.

Saludos