با تشکر از دوستان عزیز من خودم به این راه حل رسیدم که سرعتش با کدی که آقای کشاورز نوشته یکی هست و برای اطلاع این دو کد تعداد 7000 آیتم را که قبلا 20 ثانیه طول میکشید تا لود کند ولی با این دو کد 5 ثانیه طول می کشد
procedure TForm1.FastLoadingIntoStringList(StringList: TStrings);
Var
V: Variant;
I: Integer;
beging
Adotbl.Open;
StringList.Clear;
if not Adotbl.IsEmpty then
begin
Adotbl.DisableControls;
Adotbl.First;
V := Adotbl.Recordset.GetRows(adGetRowsRest, emptyParam, 'FieldName');
for I := VarArrayLowBound(V, 2) to VarArrayHighBound(V, 2) do
StringList.Add(V[0, I]);
end;
end;