و عليكم السلام
هناك عدة طرق يمكنك تثبيت مكوانات خاصة بعمل ذالك لكن أحسن طريقة و بدون مكون هي باستعمال مكون memo
procedure TForm1.Button1Click(Sender: TObject);
begin
while not adotable1.Eof do
begin
memo1.Lines.Append(adotable1['Nom']+';'+adotable1['Prenom']+';'+adotable1['Specialite']);
adotable1.Next;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SaveDialog.FileName := 'excel.csv';
SaveDialog.Execute;
Memo1.Lines.SaveToFile(SaveDialog.FileName);
end;