procedure TForm1.Button1Click(Sender: TObject);
var
FieldNum,i:Integer;
LstFld:String;
begin
FieldNum:=DBGridEh1.FieldCount;
LstFld:='';
For i:=0 to FieldNum-1 do
LstFld:=LstFld+','+DBGridEh1.Fields.FieldName;
LstFld:=Copy(LstFld,2,Length(LstFld)-1);