procedure savetotext(col: integer; filename: string);
var
TSL: TStringList;
begin
TSL:=TStringList.Create;
dbgrid1.dataset.First;
while not dbgrid1.dataset.eof do
Begin
TSL.Add(dbgrid1.dataset.fields[col].AsString);
dbgrid1.dataset.next;
End;
TSL.Save(FileName);
TSL.Free;
end;
