Gravar todos os reg. da tabela

Pessoal, tô precisando de ajuda.

Tenho duas tabelas: tbl1 e tbl2 com os seguintes campos:

num_reg numeric(5,0);

frutas varcchar(12);

Há varios registros gravados na tbl1.

Um formulário com um botão para gravar os dados da tbl1 na tbl2.

Se for prá pesquisar registro a registro e depois gravar tudo bem.Só que eu gostaria de gravar todos os registros

da tbl1 na tbl2 de uma só vez. Dou um clique no botão gravar e pronto.Dá pra se fazer isso? Como?

Estou usando delphi 7. Interbase 7.5 e os componentes da paleta interbase.

Se alguém puder me ajudar agradeço.

Prepara-te o Israel para te encontrares com o teu Deus. Amós 4:12