Pasar informacion de delphi a word

[warrior79]

Buenas dia a todos, que gran pagina es esta felicidades,soy nuevo aqui y esta es mi primera vez que pregunto algo jejeje
Tengo un problema conla automatizacion de word ya logre abrir el archivo template y mande de un query un registro al template y si se genera
Mi pregunta es que el query que tengo tiene 8 registros y en el template solo me muestra un solo registro
quiero hacer que en el mismo template se genere la misma carta con todos los usuarios que tengo en el query ya que hasta ahorita solo se refleja un usuario

este es el codigo que tengo que si funciona haber si alguien me puede decir algun ejemplo de como hacer que funcione

procedure TForm2.Button3Click(Sender: TObject);
var
WordApp,Documento: OLEvariant;
Template: string;
begin
Screen.Cursor := crHourglass;
try
// Create Word Instance
WordApp := CreateOleObject('Word.Application');
except
ShowMessage('Cannot start MS Word.');
Screen.Cursor := crDefault;
Exit;
end;
try
// Open a Word Document
WordApp.Documents.Add(Template := 'C:\Users\jibarra.acsmet\My Documents\Doc.Doc');
Documento := WordApp.Documents.Item(1);

Documento.Variables.Add('Nombre', Query1.fieldbyname('FIRST_NAME').asstring);
Documento.Variables.Add('Apellido', Query1.fieldbyname('LAST_NAME').asstring);
Documento.Variables.Add('Direcc', Query1.fieldbyname('ID').asstring);
Documento.Variables.Add('Zip', Query1.fieldbyname('WINID').asstring);
Documento.Fields.Update;
// Show Word
WordApp.Visible := True;
finally
WordApp := Unassigned;
Screen.Cursor := crDefault;
end;
end;

Saludos