Como puedo insertar varios registros con una instruccion de SQL

[[AzidRain]]

Citando el código de Roman pero usando paramtros:

Código SQL [-]
insert into personas
(id, nombre)
values
  (:id, :nombre')

Código Delphi [-]
Uses DateUtils;
Procedure PruebaSQL;
var  UnQuery:TZQuery; // Yo uso Zeos pero es lo mismo para otros motores
Begin
  unQuery := TZQuery.Create(nil);
  Try
   With UnQuery Do
   Begin
     Connection := MyConeccion;  // Asumo que ya esta activa la conexion
     SQL.Add('insert into personas');  // Prepara el query     SQL.Add(' (id, unafecha)');
     SQL.Add(' values  (:id, :fecha)');
 
     //Fijar parametros
     for c:=1 to 1000 Do
     Begin
       ParamByName('id').AsString := format('X%d',[c]); //Creamos el folio en formato X1, X2, etc.
       ParamByName('fecha').AsDateTime := Today; //Usamos la fecha actual
                                                                   // Pero puedes usar cualquier
                                                                    // Valor TDate o TDateTime
   
        ExecSQL; //Insertar el registro (el folio cambia con cada iteración)
     end;
    end; 

  Finally
    unQuery.free;
  end;
end;

Como puedes ver al poner el parametro fecha usando AsDateTime Delphi se encarga de convertir el dato en un valor de fecha adecuado para el motor de base de datos. Obviamente antes de fijarlo nos tenemos que asegurar que le estemos pasando una fecha válida. Si usas un control o edit para obtener la fecha, pues usamos TDateTimePicker que solito nos devuelve siempre una fecha.