Insertar una linea en excel con ADO

[joseprad]

Hola amigos:
Espero haber situado esta consulta en el hilo adecuado.
Estoy intentando insertar un registro en la primera linea de una hoja excel con ADO y no encuentro la forma.

Con código siguiente, me funciona perfectamente, pero inserta al final y lo que yo necesito es que inserte al principio para que al importar la hoja poder utilizar los datos insertados como nombres de campo.

procedure TForm1.bto1Click(Sender: TObject);
var
sAppend: string;
d: string;
begin
d := 'Codigo';
sAppend := 'Select * from [Hoja1$]';
qry2.SQL.Text := sAppend;
qry2.Open;
qry2.First;
sAppend := 'INSERT INTO [Hoja1$] (Codi) values ("' + d + '")';
qry2.SQL.Text := sAppend;
qry2.ExecSQL;
end;

Muchas gracias anticipadas