Puedes poner alggo como:
Código Delphi
[-]
procedure TForm1.PonerFields(const Values: array of const);
var
I: Integer;
begin
for I := 1 to High(Values) do ADOTable1.Fields[i].AssignValue(Values[i]);
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ADOTable1.Append;
PonerFields(['uno', 'dos', 'tres', 'cuatro']);
ADOTable1.Post;
end;
for I := 1 to High(Values) lo empiezo en 1 y no en 0 por si está puesto como autoincremental.
Saludos