Maldito error.. list index out of bounds (0)

[danielDelphi]

BUenas tardes A todos
lo q pasa es q yo estoy iniciando en delphi y tengo q crear una aplicacion pek en delhpi 5 y no tengo ni la mas remota idea de como darle los paarametros al query
me presenta el error list index out of bounds(0), si bluesteel dice q es error de sintaxis pero no la veo mal, ademas es una sentencia muy basica
miren el codigo

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin AlmacenarQry.CleanupInstance; AlmacenarQry.SQL.add('Insert Into "traslado" ("caso","asunto","program","ing_asig","bd_cono","fecha","tipo")');
AlmacenarQry.SQL.Add('Values(:P1, :P2, :P3, :P4, :P5, :P6, :P7)');
AlmacenarQry.Parameters[0].Value:=Edit1.text AKI SE REBIENTA CON EL LIST INDEX OUT OF BOUNDS AlmacenarQry.Parameters[1].Value:=Edit2.Text; AlmacenarQry.Parameters[2].Value:=Edit3.Text; if RadioBUtton1.Checked=True then Begin AlmacenarQry.Parameters[3].Value:=RadioButton1.Caption; end;

if RadioBUtton2.Checked=True then Begin AlmacenarQry.Parameters[3].Value:=RadioButton2.Caption; end;

if RadioBUtton3.Checked=True then Begin AlmacenarQry.Parameters[3].Value:=RadioButton3.Caption; end;

if RadioBUtton4.Checked=True then Begin AlmacenarQry.Parameters[3].Value:=RadioButton4.Caption; end;

if RadioBUtton5.Checked=True then Begin AlmacenarQry.Parameters[3].Value:=RadioButton5.Caption; end;

if RadioBUtton6.Checked=True then if Edit5.Text<> '' then Begin AlmacenarQry.Parameters[3].Value:=Edit5.Text; end;


AlmacenarQry.Parameters[3].Value:=Edit4.Text;
AlmacenarQry.Parameters[4].Value:=DateTimePicker1.Date;
AlmacenarQry.Parameters[5].Value:=COmbobox1.Text;
end;



serian tan amables de ayudarme a iniciar grax