Ich habe jetzt noch das Problem mit den Spaltennamen (also die Überschriften) geklärt. Ich habe noch folgendes eingefügt:
Delphi-Quellcode:
PatBehandlungData.qryAdo.GetFieldNames(Feldernamen);
S:='';
for i := 0 to Feldernamen.Count - 1 do
begin
if S<>'' then S:=S+';';
S:=S+Feldernamen.Strings[i];
end;
XLSStringlist.Add(S);
Somit hat man dann eine recht genaue Kopie von der XLS mit den Überschriften, die ich für meine Zwecke dringend benötige.